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CbCD 2 cask Controller 

When we made our "First Look" 
Report on the new Radio Shack Color 
ccnsxiter 2 last month, we discussed 
the fact that it has no +12 Volt DC 
Line, which would cause problems with 
the Disk Controllers, because they 
require the +12 volts for the "Write 
Pulse Width" reference voltage and as a 
power source fior the WD1793 Controller 
Chip* The information we had at that 
time indicated that a 5 Volt Disk 
Controller would not be available, so 
we speculated that the normal 
procedure would be to use a Radio 
Shack Multi-Brit for the Disk Controller 
with the color Computer 2. 

We are happy to say that there WH1. 
be a 5 Volt only Disk Controller 
available shortly; in feet, as soon as 
the 'in stock' Controllers are gone, 
that is the only one that will be sold 
by Radio Shack (it will work with ANY 
of the Color Computer Series, because 
they ALL have at least the +5 Volt Line 
going to the Cartridge Slot) . our 
information is that the 5 Volt 
Controllers will be in the 'off-white' 
cases that match the Color Computers 
now being sold. So, OFFICIALLY, there 
HILL be a Disk controller from Radio 
Shack for the CoOo 2's. 

While on the subject of Disk 
Controllers for the Color Computers, we 
have seen a few 'third party 1 units 
advertised, but have only seen one # so 
far, to report on. That is the BDG-1 
from f i D Awnriiirwi, 1210 Tbdd ftoad, 
Hew Plymouth, OH 45654. F & D has 
been supporting the 55-50 Bus 
community with PC Boards and, in a few 
cases. Kits, for a few years, and have 

Continued on poq* 22 
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LINKING 
LOADER 



for both 
ftS DOS and BS FLEX 

Copyright (c) 1963 by Roland Waggoner 

and Computer Publishing mc. 

All rights reserved 

HtnccucncH 

¥ne seepe or this article in to 
discuss programming in Assembly 
Language (or any language) using 
program modules, alternate ways of 
using program modules, and a 
description and listing of a Loader and 
a linking Program, 

There are at least three reasons 
for breaking a large program up into 
smaller modules. Small modules are 
easier to understand than a long 
program. It is usually easier and 
faster to break any complicated 
project up into smaller, simpler 
projects. You will save memory by 
putting repeated code into a 
subroutine. General purpose routines 
can be put into a library and used by 
many programs. You won't have to 
rewrite the routine for every new 
program* 

There are a number of ways to use 
subroutines. BASIC programmers often 
have to include the code in the 
program. You can do that for other 
languages as well. This is OK for 
subroutines that are specific to the 
application, and all the source code is 
in one place for examination. However, 
if there are many subroutines, the 
source code could become quite large, 
especially for assembly language 
programs. 

Continued on page G 
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MICR0B00KS 

A SMALL BIT HARDWORKING BOOKKEEPER 
16K, Ext. Basic 
TOE IDEA 



I was a little amused, some time 
ago, when I saw a letter to a computer 
magazine editor asking for business 
programs for the 4K Color Computer. 
But, MICRO BOOKS has become almost 
that. In its* shortest form the 
program could get about 100 entries 
into a 4K C0O0. At the same time it 
will do a pretty fair job with the 
books of a small business, given 
certain concessions* 

Continued on pt?* 9 
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Take a Christmas 
vacation to the 
Arcade Isle . . • 



Joystick 
Adapter 




fromlWCO 

tou can use any two. Atari compatible Joysticks with your 
TRS Color Computer using Ihe Wieo Adapt*. Can also be 
used with Joyboard or Joy Sensor, And If you need a 
longer cable, get either a six Or twelve loot length exten- 
sion card 

#34243 CoCo Ad apter $17.95 
#35223 Six Ft Ext. $4.05 
#41296 TWelve Ft. ExL $7.95 



The 
Joyboard 

fromAmtgo 

We sen over fifty types of joysticks but this is the most 
unusual AH of your OLD games become a new challenge 
when you use you* whole body to play! "res, your entire 
body is at the controls — you lean and tilt in B possible 
directions to glide, dive and zoom through the universe of 
computer games. Heavy duty kx up to 2*0 lbs and the 
special base allows use on virtually all surfaces. 

The joyboard will work wth me Color Computer with the 
Moo Adapter (see above}. 

#43322 Joyboard $49.95 




Joy Sensor 



fromSuncom 

No more Waters, no more eon hend*. tn» i* i** «Ho*im« 
-joystick'' which uses a touch sensitive panel. M also In- 
cludes a rapid fire "button" and you can flip a switch to play 
In tour dfeicftona. not ihe usual eight (great for games), ft* 
pr«nd new and win make a perfect gift. 

#31059 Joy Sensor $34.95 



Wear* so sura mat you witt Mai the 
Joy Sensor, tee win give a free) 50 day 
trial in your home. If you decide you 
donliike tt r then just return ft in salable 
condition and we win give you a refund, 
no questions e$ked. 




The Frog 



from Tom Mix 

Cross ihe frog across Ihe busy highway to the safety ol the 
median, The swollen river with hidden hazard's is the nart 
barrier In this arcade wonder, 

#26132 16k Tape $27.95 
#26907 16k Disk $30.95 :' 




Y O UP COMPUTER JUST GOT 
A WHOLE IOT SMARTER. . . 

Lets face it youf home computet is. 
only as smart os the software you use 
Where do you find enough programs 
to make it more intelligent? At The Pro- 
gram Store? Nowhere else can you find 
more programs— to communicate, to 
educate and entertain. This is just a 
sampling — call Of come into one or 
our stores to find out how to make your 
computer smarter? 



Buzzard 
Bait 




Zaxxon 




by Rugby Circle- from Tom Mbc 
Mou fly from cloud lo cloud atop your bird delending 
yourself from savage Buzzards Sky high excitement j n m i« 
high resolution arcade hi, 

#29708 32k Ta pe $27.95 
#29654 32k Disk $30.95 



Officra/ Arcade Version from 
DofaSofl 

Now for your home, combines 3 dimensional effects, 
unique color graphics and realistic sound effects. Arcade 
action while you maneuver your ship through a battlefield 
of enemy missiles, guns and planes to meel your match In 
the deadly Zaxxon Robot armed with a lethal homing 
device. 

#35963 32k Tip* $39.95 
#30328 32k Disk $39.95 
NOW 20% OFF 
UNTIL NOV. 30 
FOR $31.96 



Lunar 
Rover 
Patrol 




from SipecAxj/Attocfofes 

Another arcade special where you bump along the moon's 
surface firing at a barege of obstacles. Machine language 
with sound, bombs, missiles, tanks and more. 



#35460 32k Tape $21 .95 




Flight 




The King 

from Tom Mix 

How high can yflki cflmb? Use the practice game lo lest 
your skJte Become an expert aft this arcade style game 
filled with exciting sound and realistic action, For 1 or 2 
players. There era 4 screens; barrels, pine, Jacks and con- 
veyors. Reach Ihe hammer II you're last and strong. 

#43029 32fc Ta pe $26.95 



Cubix 



from Specfro? Anocrdtoi 

New lull leafured arcade quality game that has multiple 
mazes. Bounce your man through the cube maze avoiding 

the snake and tombing balls. Joystick experience neces- 
sary for this Hi-Res, fast action arcade classic. 

#32049 32k Tape $24,95 
#16537 32k Disk $26.95 



by Hooper & Borrm from Prickly Baor 

Fantastic, hi-res graphic flight aimulalor has 2 speeds, 4 
difficulty levels, views from lop and side, instrument panel 
end realistic joystick control Dont crash or have to "go 
aroundf Can you land on the runway to hear Ihe synthe- 
sized voice say "perfect landingr Requires Extended Ba- 

#33556 32k Tape $19,95 
#30115 32k Disk $24,95 
NOW 20% OFF UNTIL NOV. 30 FOR 
$15,96 AND $19.96 

Moon Shuttle 

OrTici'Qf Arcade VSV tfOO from OofOSofr 

Piot your moon shuttle to meet your destiny— The Prince 
of Darkness. Out maneuver spinning rockets, dodge life 
tfirealorwng man-o-wars, meteors, bomb launchers and 
expends*. Suddenly your flight becomes more perilous as 
enemy forces multiply Test the outer limits of your instinct 
for survival. 

#27302 Tip* 6 Dlsjk $29.95 

Alto aval I able 
Dallas Quest 

#40352 Tape $39.95 




Over 2500 Programs for TRS 80, ATARI 400/800, APPLE. IBM, VIC 20 & C64 



TNs Is onfy o sompiing of our sensational software! 
CALL 600-424-2736 FOR OUR N EWE ST MOOUCIS 
UNDECIDED? NEED TO 1UV A WT? The Program Store girt certificate may be purchased in any amount over $0.00. Give the perfect gift! 

VISIT OUR STORES w*emem*Ml.\mWi*m9re*W*f*:** 

Heime\tm t mUeWeWlamm,WemMa\.wt 
Oil in i f ftaa. w laaal m tof— i m oh 

stataatslani Had, HL It East, BsssMamll 

Wisamiri Mai, « Mini ryWai, toft assies, H 



e aW am m nasi. 8501 West Bowies Aw ., LNtttton, CO 

1s^llaM,42IIWseae^«ea.,im 

Harvard assess*, u Dwssk s Ontmegt MA 

H M Nam fM Senas* Ml eeWamm, M0 

mm nut am naMM we. Maajtaasl 
0aifyiiitlst^WMtMsaaa^si1iaj\aaiiy»ii 
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tamumvm*m.m***m,wt*wm*ean*aKf* 

Sever Cornets Catlttf. FslfJ trareli, ¥A 
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COMING SOON TO: 

CHICAGO 

QKUUUNMCiTY 

STPfTFRSaUflG 

ThMM 

TULSA 



FRANCHISE 

OMMNOCM 

SELEClfD COTES 



ts st a sjej j WW Wt 36 a WydaH W. Cl MaHa m , I 

To Order Call IbH Free 800-424-Z738 For Informalion Call (703) 556-9773 

Mailorders. List computer . nam. Mem # . qty. tape/disk, rem. book, price* snipping, tax A total 
Send check or MO. tor total purchase plus $2-00 shipping and handling, VA add 4% sales lax 
Charge cards— include all embossed information. List name, address, crty, state, zip & phone 

SEND »C TOff OUR COMPLETE COLOR COMPUTER CATALOG 

THE PROGRAM STORE Q*0L 09-11-3 Box 9582 4200 Wisconsin Avenue, NW 
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Build performance 
into your system 

with OS-9 software tools 



Unix* -based, multitasking, modular, 
and versatile: these key features 
are some of the reasons why more 
680° computer manufacturers 
have selected OS-9 as their stan- 
dard operating system than any 
other And OS-9 has been put to 
work by thousands of users in al- 
most every conceivable computer 
application in business, science, in- 
dustry education, and government 
Your operating system should not 

your computer. OS-9 is very friend- 
ly and easy to use. Its modular 

structure makes it easy to cus- 
tomize, plus its comprehensive 
documentation shows you exactly 
how to interface it to just about any 
I/O device. 

OS 9 s advanced leatures un- 
leash the performance potential at 
almost any 6809 computer — large 
or small. In many respects the OS-9/ 
6809 oombination is more powerful 
than many minicomputers! 

There are two basic versions of 
OS-9 , Both have the same basic 
features and capabilities. OS-9 
Level One runs on small to 
medium sized systems having up 
to 64K memory The Level Two 
version runs on medium to large 
size systems having memory man- 
agement hac&wam and up 1o 
1 megabyte of memory and in- 
cludes record and file locking for 
multiuser database applications. 

Here are Just a lew reasons why 
you should insist on OS-9 for your 
microcomputer system. 

Over 40 utility commands 
. Friendly "Shell" command 
interpreter 

Tree s! ructured multilevel file 
directories 



Full timesharing support with 
log-in and tile security 

Fast, secure random and 
sequential access files 

Comprehensive English lan- 
guage error messages 

Compact real-time multitasking 
executive 

Hardware or software memory 
management 

Device independent interrupt- 
driven I/O 

Pi illy POMrrhte fnr small control 

systems 
Standard versions available trom 
manufacturers of most popular 
6609 computers 

OS-9 PASCAL Language 

Compiler 
most complete and versatile 

PASCAL available for the 6809 
capable of generating P-code 

lor interpretive execution while 

debugging OR 
highly optimized 6809 assembly 

language source code output 

for maximum speed 
"Virtual memory - P-code 

interpreter lets you run large 

PASCAL programs 

CIS COBOL '"Compiler 

ideal lor most demanding 
business applications 

features ISAM, Debug, ACCEPT/ 
DISPLAy and Interprogram 
Communications modules 

retains full compatibility with 
CP/M software 

meets ANSI 1974 Level One 
COBOL standard and is 
GSA certified 

Also availabie^FORMS 2 auto- 
matic program generator tor 
easy ^iterative design of 
screen oriented applications. 



BA5IC09" Structured Basic 

Interactive Compiler 
fastest and most comprehensive 

full Basic language available 

tor the 6809 
combines standard Basic with 

the best features of PASCAL 
features compiler speed 

interpreter friendliness and 

superlative debugging 

facilities 
option available: Run B„a 

L-time system lor 




iller 

lementation ol the 
tJNJ3t ^fl&rsion 7 C language 

tadUdBft INT. CHAP, SIGNED. 

UNSIGNED, FLOAT AND 

data types, structures, 

standard C library ai 

preprocessor with 

definitions v; 

generates tulry 

assembly 

code output 

Formosa into 
computer 





Mjcrowore System* 
5aa5 Grand 

910-521MS35 

HJnii b a Trademark of Bell 
LabCfatates^^CIS Cobol is a 

Inc. 
OS-*** and 

uT30j9m03w 

Motorola, 
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COPYNEW 



QQPraQf - A DISK COPY OTILnY 

Peter A. Stark 

Star-Kits 

P. 0. Bone 209 

Mt. Kisco, NY 10549 

Although the Color Computer's disk 
system has all the oamtands needed for 
use with Basic, their command 
structure is sometimes a bit avAward. 

Take, for example, the COPY 
command, Tb acfy a file from one disk 
to another requires that you specify 
the full file name of both the source 
file and the destination file* 
Moreover, if a file with the same name 
already exists on the destination disk, 
you get an error message and must 
start all over again* 

While this is not too bad if all you 
want to do is copy a single file, it is 
downright annoying if you want to oofy 
several files at once* ifltieh leads me 
to the reason for writing a (fairly) 
simple Basic program called GGPYJBN* 

COPYNEW requires that you have two 
disk drives. To copy a set of files 
from one disk, simply place the source 
and destination disks into two 
different drives, RUN COPYNEW, and 
enter the drive nurfbers of the source 
and destination drives when requested. 

Given the drive numbers, Oopyhew 
reads the directory on track 17 of the 
destination disk and copies it into 
arrays in memory. In this way it 
determines which files are already on 
the destination disk. 

Next, it reads the directory of the 
source disk, As each directory entry 
IS Scanned, COPYHEW checks to see 
whether a file by that name already 
exists on the destination disk. If the 
name is found in the destination 
directory* OOPYMBM also checks a byte 
in the directory entry ^iich indicates 
how many bytes there are in the last 
sector of the file, and compares it 
with the corresponding byte on the 
source disk. 

There are new three possibilities; 

1. The file name already exists on 
the destination disk, and the miriber of 
bytes is the same. In that case 
CDPYHEH simply displays the file name 
on the screen and tells you that the 
file already exists, and then goes on 
to the next file. 

2. The file name already exists on 
the destination disk, but the number of 
bytes is different* Now COPYHEW 
displays the file name, but points out 
that the files appear different and 
asks whether you want to delete the 
old file on the destination disk and 
substitute the one from the source 
disk. You need just answer Y or N, 
and COPYHEW takes over. 

3 • The third possibility is that the 
file name does not exist on the 
destination disk, in which case OOPYNOJ 
tells yoti so, and asks whether you*d 
like to copy it. Simply answer YorH. 

It's a fairly single and fast matter 
to go through the entire directory and 
just answer Y or i to have as many 
files copied as you'd like. 

The test to compare Whether two 
files are identical is only a rough one, 
and not very reliable. It is quite 
possible that two files are completely 
different, and yet the mmber of bytes 

4 



in their last sector is the same. The 
only foolproof way to compare the two 
would be to read each one and do a 
byte— by— byte comparison; a process 
which would take quite a bit of time* 
I therefore settled on the above 
method, knowing full well that 
occasionally it might make a mistake. 
From the point of view of probability, 
there is one chance in 256 that two 
different files will have the same 
nw£>er of bytes in their last sector* 

There is one rule I always follow to 
reduce this chance* Whenever I update 
any program, I always make sure to make 
it just a bit longer or shorter. In 
that way, if I ever use GGPKNSf on two 
disks that have different versions of 
the same program, I will notice the 
difference and make a conscious effort 
to determine which is older and change 
it. 

10 CLS: VERIFY ON 

20 PRItJT "COPYNEW - (C) 1962 BY 

PETER A. STARK." 
30 CLEAR 2000 

40 DIM DN5C68),L(68) *DEOT FIIJE 
NAMES AND LEM3THS 
50 INPUT "COPY FRCM DRIVE NUMBER 
"j Dl 

60 IF DK0 OR Dl>3 THEN 50 ELSE 
70 
70 HSUT "COPY TO DRIVE NUMBER"; 

D2 
80 IF D2<0 OR D2>3 THEN 70 ELSE 
90 

90 IF D1=D2 THEN 50 
100 DW=0 

110 Sl^'^+RICFfTSCSTRStDl),!) 
120 S2$="!"+RIGHr$(STR$(D2),l) 
130 * FIRST, READ FILE NAMES ON D 
ESTIMATION DISK 
140 FOR SE-3 TO 11 
150 DSKI$ D2, 17,SE,A$,B$ 'READ N 
EXT DIR SCTR 
160 A$=ft$+LEFT$(B$,127) 
170 FOR J=-l TO 225 STEP 32 
180 IF MID$(A$,J,1)=CHR?(255) TH 
EN 240 'LAST ENTRY 
190 IF MID$(A$,J,l)=<3mS(0) THEN 

220 'DELETED ENTRY 
200 F$^ID$(A$,J,8)+'7 H +MID$tA$, 

J-r8,3) 

210 DN=DN+1 i IN?(DN)=F? 

215 L{DN)=iASC(MID$(AS,J+15,l)) ' 

LENGTH 

220 NEXT J 

230 NEXT SE 

240 'NOW DO ACTUAL COPY 

250 FOR SE=3 TO 11 

260 DSKI$ Dl,17,SE f A$,B$ 'READ N 

EXT DIR SCTR 

270 A$=rY$+LErT$(B$,127) 

280 FOR J^l TO 225 STEP 32 

290 IF MID$(A$,J,1)^ZHRS(255) TH 

EN END 'LAST ENTRY 

300 IF MID$(A$,J,1)=»CHR$(0) THEN 

600 'DELETED ENTRY 
310 F$=MIDS(A$,J,8>+"/ M 4MID$(A$, 
J+S.3) 

320 L^ASC(MID$(A$,J+15,1)> *LENG 
TH 

370 'REM SEARCH DEST DRIVE 
380 IF »M3 THEN 560 
390 FOR K=l TO DN 
400 IF DN$(K)»F$ AND L(K)=L THEN 

PRINT F$f " EaSTS" ! GOTO 600 
'COPY EXISTS 

405 IF EN$(K)=F$ THEN 440 'EXIST 
S BUT DIFFERENT 
410 NEXT K 
420 GOTO 560 

430 'COPY EXISTS BUT HAS DIFFERS 
NT LENGTH 

440 PRINT F$t PRINT' EXISTS BUT 
IS DIFFERENT." 

450 PRINT " — OOPY IT? "; 
460 C$*INKEY$ : IF G$-" H THEN 46 




470 PRINT C$ 

480 IF C$-"N" THEN 600 

490 IF C$<>"Y" THEN 440 

540 N2$-F$+S2$ 

550 KILL N2$ 

555 GOTO 570 

560 'NO COPY EXISTS 

561 PRINT F$; " DOES NOT EXIST. " 



562 PRINT 



COPY IT? 



563 C$-INKEY$ i IF CS-"" THEN 56 
3 

564 PRINT CS 

565 IF CS= M N* THEN 600 

566 IF C$<>"Y" THEN 561 
570 Nl$=tf$+Sl$ 

580 N2$=F$+S2$ 
590 OOPY Nl$ TO N2$ 
600 NEXT J 
610 NEXT SB 
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Horn* Submitted for PebHcotkn 

COLOR MICRO JOURNAL Is actively soliciting 
contributions for publication' We or* looking 
for ANY typa of material that will be useful to e 
Color Computer Owner; from hints to full Program* 
end Construction Articles* W« will pay for 
submissions based on a number of criteria. If 
you wish payment for a contribution,, be sure to 
state these requirements with pour submission. 
ALL submissions must contain a statement that 
the material Is not currently under 
consideration by another publication. For acre 
detailed Information, send a SASE to the Editor, 
COLOR NICRO JOURNAL, P.O. Box 3*4, HhttOfi, TN 
37343. 

Articles submitted for publication should be 
accompanied by the authors FuA Mane. Address, 
Date, end Telephone Number. It Is preferred 
that articles be submitted as a .TXT File On A 
FLEX Formatted 5 or ft Inch Disk, or as an ASCII 
Fide on a Radio Shack Disk or Tope (a A&AT Ftie). 
BASIC Programs should be submitted on Disk or 
Tape In the normal Binary Format. 

If articles are submitted on paper, they should 
be either Typed or Printed Single Spaced with a 
NAX1MUH Lime LmngHi o* «• on normal 8 1/2* M II" 

bond or better paper. A good BLACK Ribbon must 
be used because all paper submitted articles will 
be photo reproduced. NO hand written arttcles 
will be accepted (except required ort work which 
goes with an article). Again, PLEASE use a DARK 
Ribbon. 

All tetters to the editor should also comply with 
the above emd MUST beer a signature. Letters of 
'gripes 1 as veil as 'praise* are solicited* We 
attempt to publish atl letters to the editor 
verbatim; however, we reserve the right to 
reject any submission for lack of *good taste*. 
We also reserve the right to define what 
constitutes 1 oood teste'- 

Advertising: Commercial advertisers please 
contact the COLOR NICRO JOURNAL advertising 
department for current Hate Sheet and 

Requirements. 



TRS'SOC, Color Basic, Extended Color Basic, and 
Disk Color BesTc ere tredemarks of the Tandy 
Corp. FLEX and UMFLEX are trademarks of 
Technical Systems Consultants, Inc* OS-9 and 
8ASIC09 are trademarks of Microware Systems 
Corp. UNIX Is a trademark of Ball Labor etorles. 
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SORTC**forOS9* 

THE ONE AND ONLY 



LIKE THIS: 



NOT LIKE THIS 





BOLDLY GOING WHERE NO SORT 

HAS GONE BEFORE 



SORTC is a high speed, full-record com- 
pounding disk sort, which gives microcom- 
puter users mainframe capabilities. It has been 
specifically designed to sort data efficiently 
while offering the user great flexibility in 
designing sort programs. It is written in 
BASIC09* for use under OSS. 

COMPOUNDING FUNCTION 

SORTC has the capability of summing user- 
specified numeric fields on equality of keys. 
This allows significant savings in memory, 
disk space, and program development time. A 
reduction in the number of disk accesses re- 
quired when compared to other sorts is in* 
herent in the design of SORTC. 

DISK BASED 

Specifically designed to sort large volumes of 
data, SORTC imposes no size restrictions on 
the amount of data to be sorted. It also places 
no limits on the number of sort keys which can 
be used or the order in which the keys are sort- 
ed. Furthermore r the sort procedure can be 
performed as many times as necessary within 
the same program. This feature allows the pro- 
grammer to take advantage of any existing 
data bias, and possibly even reduce the size of 
the sort key. 




JBM'S MIDWARE 



*OS9 t BASIC09 are registered trademarks of Mkroware 
Corporation. 

**Lte#s I he same algorithm as JBM's SORTC tor Digital 
Equipment Corp. RSTS Systems, 



ADVANCED DESIGN 

While most disk sorts are partially based upon 
the Fibonacci series, SORTC is not. SORTC is 
a generation ahead of the normal sorts based 
upon the "Fib series" Its unique algorithm is 
automatically optimized at run time for a re- 
duction in workspace, reduced of disk acc- 
esses and shorter run times. Designed to be as 

"crash proof as possible, the sort procedure 
will not abort if it is accidentally asked to sort 
zero items* 

EASY TO USE 

It is not difficult to design a program which 
will use JBM's SORTC. Since SORTC is a 
subroutine, the user may write any procedure 
he or she wants to format the data for sorting 
and then to process the sorted data. The sorted 
data need not be written back to disk, but in- 
stead is immediately available. The sort code is 
automatically inserted into the source proced- 
ure by a simple Sort Generator. 



ORDERING INFORMATION 

SORTC, from JBOTs MIDWARE line of 
quality software, is available on either five 
and one-quarter or eight inch diskettes for 
a price of $150\00. All of JBM's software 
packages come complete with comprehen- 
sive user's manuals. 

For more information, or to place an order, 

contact: 

DEFT, FSEA frg 

The JBM Group, Inc. 

332 West Church Road fll 

King of Prussia, PA 19406 I 

TEL: 215-337-3138 

TWX: 510-660-3999 

VISA and MASTERCHARGE accepted. 
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LINKING LOADER 

Continued Cm p*?* 1 

Many editors used on micro- 
processors are limited to the size of 
the files they can process. Large 
Assembly Language programs take a long 
tune to assemble, and an excruciatingly 
long time to print on the printers 
available for hone use at home budgets. 
You also have to code any general 
purpose routine into EW3J program. 

You could keep each general purpose 
subroutine (module) in its own file, and 
merge it with the mainline code at 
assembly time (either by insetting the 
code In the source with the editor, or 
including it during assembly with 
INCLUDE or LIB calls). Ttoen the main 
program would fit editor buffers 
better. However, at assembly time you 
still have a long assembly to process 
with the same problems mentioned in 
the last paragraph, as well as some 
other problems* You would have to be 
careful of conflicts between label and 
Variable names. I Once tried to set Up 
a system of BASIC subroutines by 
assigning blocks of variable names and 
line numbers to the subroutines, and 
not use those names or numbers in the 
main programs. It worked, but it was 
hard to manage. 

The other problem with this method 
is that you have to merge the modules 
manually, remeribering the modules that 
the subroutines need. 

You could merge binary modules after 
assembling. There would be no conflict 
with variable names, but you would still 
have to remember to include the 
dependent modules. "The bio problem 
with this method is providing the entry 
points of the subroutines to the 
calling routines. 

mini i tim 

This brings us to the main feature 
of this article, the description of a 
Linking Loader. A "Linking Loader" is 
a Program which merges a Main Program 
with subroutines that are not defined 
(included) within the Source Code of 
that program* In addition to merging 
the modules , it provides a means for 
routines within the complete program 
to locate these added modules. 

The Linking Loader described here 
consists of a Loader Program and a 
Linking Module that becomes part of 
the main program* The Loader merges 
the main program with the required 
subroutines, as well as any subroutines 
within these subroutines. It also 
loads the Linker Module and saves the 
whole program to disk. The modules 
are stored in individual files on a 
disk* I have not written a library 
editor for« this system yet. The entry 
point of the Linker becomes the 
transfer address of the main program. 
At run time i the Linker copies the 
entry points of the subroutines into a 
Jump Table, The calls to the sub- 
routines MUST be indirect calls to the 
jump table* 

There are assemblers available (that 
run under the FLEX Operating System) 
which can generate relocatable code 
and include a linking Loader, and many 
compilers have the same facilities. 
The program I am proposing here will 
work with ANY assenfcler, but requires 
a little extra effort on the pro- 
grammers part* 
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There are some programming 
conventions you will have the follow in 
designing each module that you want to 
link. You will have to code two new 
sections in each module, including the 
main program. Each section is simple, 
and in the final program does not use 
much memory. One section can be 
overlayed, so will not use any memory 
at all in the final product. You must 
assemble the subroutine modules at 
location Bsro and code them in posit inn 
independent code. You can code the 
main program ANY WAY you like* The 
Loader appends the subroutines to the 
end of the main program* 

Each module must have a program 
"preface" which must be at the very 
beginning of the module. The program 
preface is 9 bytes long, and contains 
the following 5 elements. 



MM 



tizi 

in bytes 



function 



■adult miifetr | itfult idwtifiw 

txecution id dress painter 2 pointer to entry point 

neirt MduU pointer 2 painter to n«t iodu]e 

laid list 2 painter to load list 

initialization 2 pointer to initialization 

routine. 



The term 'pointer' means the value in 
the field is the offset from the 
beginning of the Module. I will 
describe these terms in detail later. 

The second section }ou must code is 
the list of external Modules. This is 
the list of Filenames of the files vrttich 

is no library editor, each file must 
contain only CHE module. Each Filename 
must be in Radio Shack Format fcnnat 
followed by a one byte binary sero 
($00) for the Radio Shack DOS, or In 
FLEX format followed by a one byte 
binary 4 ($04) for the FLEX DOS. the 
list MUST be terminated with a hex FF 
(-1). The offset to the list is in the 
preface. 

when the Loader loads a nodule, it 
builds a table of external filenames. 
It then loads each module in the list 
and appends it to the end of the last 
module. The end of the module is 
pointed to by the next module pointer 
in the preface. If the modules have a 
load list, those names are added to 
the program load list if they are not 
already in the list. 

You can code the list any*Aiere you 
like, but it is best to code it at the 
end of the program. The loader needs 
the load list only while loading. If it 
is at the end of the program, it can 
be overlayed by the next module, saving 
e, significant amount of memory. %>u 
can accomplish this by making the next 
■odule pointer and the load list 
pointer point to the same address. 

After loading all of the specified 
modules, the Loader loads the Linker 
and copies the program to disk* The 
program is now ready to execute. 

EWWLE PK3GEW1 

As an example, let's code a program 
which gets a character from the 
terminal, calls a subroutine to convert 
the character to upper case if it is 
lower case, and display the character 
on the screen. The jump table has 
been located at $0E00. 



TOUPEI EQU IKM AIDRE5S LOABEI WTO HE2I 

I BY THE LINKER 

PfttFAC OK fit M 

FEB I BOWLE MfflBER 

FD-B MIK-PREFAC HECiniW AIBRES5 

FOB XTRN-FREFAC NEIT HfHMJUE LOAD ADDRESS 

FAB XTRN-PREFAC EHEHML SUMQUTIHE TABLE 

FSB • INITIALIZATION ROUTINE 

* ENB OF PREFAC 

min m imm set character from keyboard 

JSR (TOUPPEHl CONVERT TO UPPER CASE 

JSR [IAII21 DISPLAY ON SCREEN 
RTS RETURN TO BASIC 
ITRN FCC TDUPER.UB',1 

FCI «ff 

END PRtffiC 

The module number really isn't used 
in the Main program, but it is needed 
to fulfill the requirements of the 
preface* Notice how the pointers in 
the preface are coded. Tine values in 
the pointer fields of the preface must 
be offsets from the beginning of the 
program, which is the beginning of the 
preface, to the code the field 
represents. 

Notice that the next module pointer 
points to XTRN. Remember in a 
previous paragraph. I pointed out that 
the filename list is needed only by the 
toader. It copies the filenames into a 
table after it loads the module. It 
can then overlay the filename list with 
the next module, h program which 
calls many subroutines could have a 
large filename list, requiring hundreds 
of bytes. You can save a lot of memory 
this way. 

Also note that the initialization 
routine pointer is aero. That means 
there is no initialization routine. If 
th^re was sJ) l*i4%4ftliBntien routine, 
its pointer would be coded like the 
others. The initialization routines 
are called by the linker ba&n ptutaing 
control to the main program. If there 
were no external subroutines, that 
pointer would be zero also. There 
■net be a pointer pointing to the 
entry point. 

Now let's code TOUPER. 



ORB 1 


SUBROUTINES START AT 1 




PREFIX FCI 7 


HOBULE NUHBEH 


FOB TOURER 


ENTRY POINT 




FBI TERN 


MEITHQWLE 




Fill 


NO EXTERNALS 




Fill 


NO INITIALIZATION 




T0UPER EH 1 


BEGIN CODE 




CNPA 1*1 






BLO EKIT 


60 IF NOT LONER CASE ALHFA 


- 


CHPA t'z 




• 


BHI EXIT 






EUBfl HI! 


CONVERT TO UPPER CASE 




HI! RTS 






TERM EQU t 


NEXT HOWIE 




ENS PftEFAC 







Notice that the load address is 
zero. This is mandatory for 
subroutines, but the Main Program can 
load ANYWHERE in memory* It is not 
apparent from this example, but 
subroutine modules must be written in 
position independent code. This is 
because they may be loaded any«#>ere in 
memory. Main programs do not have to 
coded in position independent code. 

Compare the module ntntoer with the 
address of the jump table entry which 
is defined in the main program. MDtice 
that the address of the module's jump 
table entry is $0E04, or 4 tykes from 
the beginning of the jump table. That 
is twice the value of the module 
number* That is how the Linker 
determines where in the juqo table the 
entry point of the module will be 
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stored* As a result, all nodules which 
will t>e used in the sams program must 
have unique module nmtoers* 

Since this module doesn*t call any 
external subroutines, or have an 
initialization routine, those pointers 
are 0. 

A Hating of the Loader program is 
provided with this article. TfhB 
program is available on disk from 

Southeast Madia Supply, p -°* Box 794 ' 
HiXSOn, TM 37343, (615) 842-4601, on a 
Radio Shack Color Conputer or FkEX 
formatted disk, for $39.95. The Radio 
Shack Disk contains the Assembled File, 
"LOADER/ BIN", and the Source Oode for 
use with the Micro Works M&CRO-80C 
Assembler. The FLEX Disk includes the 
Source only, so that it can be 
assentoled either way, for the T9C Macro 
Assembler* The major differences are 
in the I/O routines* A description of 
the code follows . 

The XJHOHS LONER P r ogr a ms 

BASIC'S stack is saved for return to 
BASIC. By setting the buffer end 50 
bytes below the stack, the buffer sise 
is automatically set according to the 
amount of memory {you may need to 
adjust this if your program will 
require more Stack space). 

The user is prompted to enter the 
Input and Output Filenames. The input 
file is the binary main program. The 
output file will contain the merged 
main program and all the external 
subroutines. If the output file is not 
named, the output will overlay 
(replace) the input file with the Radio 
Shack DOS; FLEX will assign the input 
Filename with a cmd Extension. The 
default extension Is BUN. 

The filenames are broken into their 

constituent parts by calls to the 
operating system in the subroutine 
parsfn. This will be described later. 

In the routine labelled MftPDSP, the 
output device for the load map is 
specified. The map can be directed to 
the Screen or the Printer* The output 
device number is stored in DSPDVC 
The default is the Screen. 

The code at the label IDfiD is where 
the load is initialised* The main 
program is loaded first. The flag 
HODCNT is reset to indicate that the 
main program is being loaded. Some of 
the buffer pointers are initialized. 
LDADD contains the address of the 

module currently being loaded. HECftDD 
contains the address of the binary 
record currently being loaded, mootab 
points to the next entry to be read 
from the module name table, tab end 
points to the last entry on the table* 

The module name table, MDDTAB, can 
contain 30 12 byte entries; an 8 byte 
filename, a 3 byte extension, and a 
binary drive number * Bach field must 
be left justified and blank filled on 
the right. Each entry must be fbUov<ed 
by a binary zero for Radio Shack, or a 
binary 4 for flex. The last entry must 
be a $FF. 

After a module la loaded, the 
address of its external reference list 
is obtained from the preface. Each 
entry is converted into the form 
described in the previous paragraph, 
and compared with the entries already 
on the table. The compare is made on 
all 13 bytes, ^ou might want to Change 
this to compare on only the 8 byte 
filename. If the module is already in 
the table, it is not added. Otherwise, 
it is added to the end of the table. 
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At the label ICAffi, the break key is 
checked and the program is stopped if 
the key is depressed in the Radio 
Shack version. 

Before opening the file, the 
filename is displayed on the load map. 
If there is a file error, the filename 
tells the user which file is in error. 
The file is then opened. KECFt£ is 
reset, indicating the first record of 
the file. RECFLG is used later, with 
the main program flag, to indicate that 
the record contains the load address 
of the program. All files use device 
number 1. 

The code at the label D3AD2 starts 
the read file loop* The first byte of 
a binary record is the flag byte, or 
the record descriptor byte* As far as 
I can tell, the only record tjpes are f 
for a data record and $FF for an End 
Of File record in the Radio Shack 
system. The record length and the 
record load address are saved on the 
stack temporarily, and the next byte 
read will be the first data byte of the 
record. 

If it is the first record of the 
main module, the offsets are 
calculated. OFFSET is used for 
calculating the load addresses in the 
buffer of the subsequent records as 
they are read in . QFFST1 is used for , 
calculating the load address of each 
module as It will be loaded for 
execution. OFFSTl's only purpose is 
for displaying the address on the load 
map. 

The code from L0AD4 to LOADS 
calculates the beginning and ending 
address of the current record. lhe 
code from loads to LOADF reads the 
record into the buffer. 

The code at lgadf is the end of file 
processor. Here, if it is the main 
module, the loader displays a message 

mmi mi i i 

Chattanooga Choo Choo Software 

Your One Stop Station 
For Computer Programs, 
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end pauses so the user can load a 
library disk if he wishes. 

After loading each module, at the 
label LOADC the preface is checked for 
an external refiarence table. If there 
is one, the module names are loaded at 
the end of the Loader's table. The 
name of the next module is taken from 
the beginning of the table at LOATH. 
The name LINK, BIN is added to the end 
of the list so the linker can be added 
after the last user module* Control is 
passed back to LOAD! and the next 
module is loaded. 

After the last module is loaded, 
control is passed to BJHOuT where the 
concatenated program is written to 
disk* Note that the program has not 
been linked. Linking occurs at 
execution tise. 

The offset from the linker Module to 
the main module is saved in the 
linker's preface in the entry point 
field. Ihe Linker's transfer address 
is used as the Program transfer 
address, where execution will begin* 
The transfer address and the end 
address is displaced on the load map . 

Before copying the program to disk, 
the Loader program displays a message 
and pauses to allow the user to load 
an output disk. An EOF record, with 
the transfer address, is written at 
the end of the file. 

Note that ROM Routines are called 
for disk and terminal t/° in *ne Radio 
Shack version. This program will wark 
on the older Color Computers with 
Version 1.1/1.0/1.0 ROMs, but I don't 
know if it will work on the new Color 
Computer 2*s r Dragons, or TDP f s (the 
TDP's should be OK - Editor). ALL of 
the FLEX calls axe standard, so there 
should be no problems with different 
flex Conversions. 



Buy 1 Program Get 10% Off 
Buy 2 or more Programs Get f 5% Off 

Except Pnddy-Pear Software 



Zaxxon (32K r 939,95 Tap« Gr Disk 
Moon Shuttle $29,95 Tape or Disk 



Speetref Associates 

Ghost GobbJer 

$19.96 

Planet Invasion 

Space Race 

GailaaArtax 

I21.95ea 



Guaranteed 1© load 
Some Demo Software 
Save up to 49% 
3Cev»Hunlei $19.99 
1 Cava Hunter Disk $1 B.95 

1 Nova PtnbaJI $14.95 
iPaedrotdt t14Js 

2 Katarpttv Attack $19.95 
SAstrobtast $16.96 
2AsiioblastD0k SUSS 
SRslRunner $19-96 
1Trftogy3Qamn 929J6 
{invaders, Often? Gottbbr. Space 
Wat) 

2 mmgaiaebe Force 916-96 



Pridcry-Peer Software 1 5% OFF 

Shaft .nirtT'S21 .20 

'Vikings. Fsght{32K). Jungle 

J4«t96-$14-96 ea. 



• 



Artteco Software 

infergalaete Force 124.95 

Pmbaii 124.95 

(Available m Rom Pac) 

$29.95 ea 

(Available in Rom Pac Onty) 

ft Ball $29 95 
Whirly Bird Run S27.SSea. 
Ghost Gobbler $27.96 ea. 

Kraft Joyaticfc 

The Beat" 
f Veer Warranty 

949.se ea. 

Early Gamaa 
|^ PrBSChogJ lesming 
$21.99 Tape or Dak 



Adventure international 
Sea Dragon I32KJ 
N $34.95 

J(P Fire Copier 
$249$ 

Tom Mb Software 

"Donkey King <32kJ 

$26.9$ 
Space Shuttle P2K) 

^ Trap Fes, frog 

$27,95 M 

Cornpulerwanj 

Doodle Bug 

Shark Treasure 

$24.95*3 

Rait Runner 

$2196 



Mark Data Products 

Super Pro Keyboard 

$99.96 

Glaxxons, Bumpers. 

El Bandito ft Cosmic Clones 

S24.95ea 



S# 




■Also available' on disk (32K) at extra charge. 

All programs, 16K on cassette unfess otherwise stated. 

Sand tor free comptele catalog and descriptions? 

WE pay postage. YOU save money! ( in the U S and Canada) 

TN residents add 6 25% sales lax. COO orders add $2 .00 



(61$) 9754656 • P.O. Box 15992 • Chattanooga, Tn 37415 
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Mill III MB 

BINMHI CONVERT 9 1 WRY TO ASCII ENCODED HE! FDR 
DISPLAY 

IRAK BREAK PROCESSOR - RETURN TO MSCtC 

COflPAR COMPARE TiO STRIH6S 

KPAM DISPLAY THE CQHTEMT5 OF D IN HEX 

DSPflOD 51 SPLAT OR FtllNARE 

KTMD EVALUATE ABSOLUTE ADDRESS OF DATA IK 
MODULE PREFACE 

JNPUTP ISSUE: MESSAGE TO TERMINAL AMD HAFT FOR 
* 1MPUT 

IMCHfl SCAN STRING FOR SPECIF J ED CHARACTER 

LEMSTR LENGTH Of STRING TERMINATED W 2ERO DVTE 

ttOMEM PRINT DOT OF HEHOftf CONDITION 

NOTAB PRIMT MODULE TABLE FULL 

OUT2 OUTPUT THE 2 ASCII CHARACTERS IN I 

PARSFN PARSE A FILE NAME FOR ITS COMPONENT 
PARTS. Th* filHiiK is inter ed in 
ftS standard fanit. A rot routine is 
called which parses the string ind 
stores it in in 0/5 but fir. U tile 
caller specifies in wit put buffer, 
PARSFN copies it to the buffer 

SEARCH SEARCH A TABLE FOR A SPECIFIED STRIM6 

SOPEN OPEN A BISK FILE ' 



VARIABLES 

The comments on the variables in 
the Source Listing should be self 
explanatory. However the buffer 
pointers probably need more 
explanation- 

The variables PGMADD, XADD, and 



OFFST1 refer to the p rog r am as it will 
be loaded for execution. They are 
used for displaying the memory map, and 
for storing the load address and 
transfer address in the binary disk 
file . XADD is the entry point for the 
Linking Subroutine which is added to 
the end of the linked modules by the 
Loader* The Linker Subroutine gets 
the entry point of the User's Program 
from the main module's preface. 

The variables IZADD, EBCADD, EMDADD, 
PGMTOP and TABEWD contain the 
addresses as the program is loaded 
into the loader's buffer. 

The linker is appended to the end 
of the program as if it were a 
subroutine. The entry address of the 
Linker becomes the transfer address of 
the program. The Linker obtains the 
entry points of all the modules and 
stores them in the jump table, then 
passes control to the main program. 

The address of the jump table of 
this Linker is at $0E00, identified by 
the label BASE. The juit> table can be 
anywhere in RAM* I chose $0E00 
because I write programs for computers 
with different memory sizes. I would 
think that a better choice for most 
people would be at the top of their 
RAM. 

The code at the label START is 
where the Linker starts execution. 
This becomes the Transfer Address of 
the Program* 
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Christmas Sale (Until December 24, 1983) 



STAR-DOS 64 



SPELL 'N FIX 



HUMBUG-64 



Reduced from $74.90 to 949.90 ($5230 for the AMDEK 3" disk.) 
Get the 64K and 16K/32K versions for the price of the 16K/32K 
versions alone. Here is your chance to get this extraordinary 
Disk Operating System for the Color Computer at a great price , 

Reduced from $69,29 to $59.29 for the CoCo disk or cassette 
version, and from $178.58 to $125 for the Rex disk version. (Add 
$3 for AMDEK 3' disks.) 

Reduced from $59.96 to $49.95. This version is specially 
configured (or 64K disk systems using either Flex or STAR 
DOS, (Add $3 for AMDEK 3" disks,) 



REBATE 

Buy your Star-Kits software from a dealer, and get an extra savings by sending us your 
registration term and a copy of your sales slip or invoice. The rebate is $10 on software 
priced over $50, *>nd $5 for software under $50. The rebate is in effect unlil December 24, 
1963. 

ILLEGITIMACY PROGRAM 

If you have an illegitimate (ahem . , , pirated) copy of a Star-Kits program, we offer you an 
amnesty as part of our Illegitimacy Program. Send us (a) a working copy of the prosrarruCb) 
details on where and from whom you got it (with adequate identification of the Source),, and 
(c) 25% of the current list price, and we will send you (a) the latest up-to-date copy of the 
program, (b) a complete and up-to-date manual, and (c) a sales slip welcoming you to the 
world of happy Star-Kits customers. A small price to pay for a clear conscience? 

MC-IO SPECIAL 
To celebrate Star-Kits' being first with MC-10 software, here's our MC-10 Triple-Fak: 
MC-10 HUMBUG (normally $29.95), MC 10 REMOTERM (normally $19.95), and MC-10 
COMMTERM (a brand new terminal communications program which sells separately for 
$19,95), a total value of $69.85, all for a special price of just $55, 



Star-Kits 



P.O. BOX 209 - ; 
MT. K1SCO, N.Y. 10549 
(914) 24 1 4287 



Remember that the loader stored the 
value of the offeet from the beginning 
of the Linker to the beginning of the 
Main program in the entry point field 
of the Linker's preface. The linker 
now uses that to calculate the address 
of the main program's preface and saves 
it on the stack. 

The address of the end of the 
Linker Module is stored at location 254 
of the junp table. This marks the end 
of the code for the program, and the 
beginning of free memory, Tfou can use 
this for dynamic memory allocation, for 
scratch area, or anything you like. I 
haven't used it for ariything yat. 

The code at LINK1 is where the 
linking is done. The address of the 
next module is calculated from the next 
module pointer. The module number is 
used to calculate the address in the 
jump table Where the entry point of 
the module will be stored. The formula 
is BASE 4- 2 z module*. The Entry Paint 
is calclated and stored in the jump 
table. This code is executed for each 
module. 

At LINK2 we start calling the 
initialization routines of the nodules. 
The address of the Main program is 
obtained from the stack, and control is 
transferred to LINK34. The offset to 
the initialization routine is obtained 
from the •prefece' . If it is not zero, 
the address of the initialization 
routine is calculated and the routine 
is called. Control is then passed back 
to LINK 3, where the address of the 
next module is calculated. This loop 
is executed for all modules, until we 
reach module number zero in the linker 
Module. 

At LINK4 the address of Main is 
pulled from the stack, Main's Entry 
Point is calculated, and control is 
passed to it. 

Roland 



Next Month we will cover the OPERATION 

of the Quiring loader with RS DOG and 

FlIX, and the provide the complete 

Assembly Language Listing. 
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MICROBOOKS 

Continued trtm psxj* I 

Actually, "very snail business* is a 
better way of putting it. I used to 
call my one nan repair operation a 
small business. But, I learned that 
Uncle Sam calls a business small if it 
is only worth a few million, eo now I 
call the operation a micro business. 
Hence , the name of the bookkeeping 
program 1 wrote and use, ME9GB00B5. 

The program is job oriented and 
small, just like my business. (More 
about this in the section on using the 
program.) it Is well suited to someone 
who wants to find out if he wants to 
do this kind of thing on a computer 
without putting a lot of money into it. 

THE PROBLEM 

Finding a program that I could 
afford, which would give me quick and 
current information on how I'm doing on 
any particular job, seemed to be 
impossible. Having only a 16k Extended 
Basic CoCo, in addition to the family 
TV and cassette recorder, my aim was 
a small program with only essential 
features. Really, it is little more 
than a means of getting the data on 
tape. By omitting Printer routines and 
Statement and Balance Sheets, 
MICROBOOKS is small enough to fit into 
16K and still accept well over 200 
entries of expense and/or income, 
provided you use FOKE25„6:NEW before 
loading . In this simple form you can 
put on tape only vAiat jou can fit into 
memory; but, if yxi make monthly tapes, 
you can put a lot of data through 
mCROBOCKS. If there is enough render 
interest, we can publish Printer and 
Balance Sheet routines for KK3CBGGKS 

in the future* These routines can be 
plugged into places provided in the 
program, or loaded separately, saving 
memory* 

My own setup will squeeze a Quarter 
(3 months) of business into the 16K 
Extended CoCo. Of course, 32k would 
increase that to a Quarter for a 
bigger business, or 6 months of Books 
at my current rate. To do this with 
the program as it is, I write down the 
totals from each tape, but they could 
be carried forward to the next tape if 
desired* 

THE PHDGRAH 

MICROBOOKS bears no resemblance to 
spreadsheet programs* I tried Radio 
Shack's "SPECTACULATOR", but it is 
really not a Ledger Program, and I 
found it to be rather slow to use and 
not especially "friendly"* MeQrcbots 
is menu driven, has fair error 
trapping, and takes data very quickly 
through screen prompts. Its main 
functions are to 

1. Enter and store data 

2. Retrieve and display data 

3. Display sub-totals 

While entering data, several 
opportunities are given to correct 
entries, you can scroll >our files at 
a controlled rate for general viewing 
and indirect editing* 

MUCINS THE PROGRAM 9*LLH* 

Since I first talked to Bob about 
publishing this program, I have worked 
on making it smaller and smaller by 
various means of rewriting and 
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compacting, so there are two listings 
for comparison* The first is the 
earlier, more easily read, version - 
which uses about 4.5K of Memory* The 
other is a much later version with many 
multiple statement lines and other 
space saving features. It takes about 
2 • 5K of Memory and does the same job. 
We'll talk about the job of making 
programs smaller as we go along. 1*11 
assume that folks with a minimum memory 
computer are probably beginners like 
me, and write in considerable detail on 
most things* 

tm GEGAHIZKnEN 

Listing 1 

0001* Parameters 
1000. Main Menu 
2000. Expense Entries 
3000. Income Entries 
4000. Totals Routines 
5000. Expansion Space 
6000. FUe Scan 



Listing 1 is included for those 
interested in how BASIC programs can 
be made smaller. Mule seme reference 
will be made to Listing 1, most of the 
following discussion concerns Listing 
2, which actually provides more 
functions. 



Listing 2 




0010. 


Parameters 


1000. 


Main Menu 


2000. 


Ledger Routines 


3000. 


Totals Routines 


4000. 


File Scan 


5000. 


Expansion Space 


6000* 


Subroutines 



Setting up the CLEAR and DZMension 
Statements involves a certain amount of 
trial and error, m my use of the 
program, I nave decided to abbreviate 
Check entries as much as possible, to 
save space, since I would probably need 
to return to the originals for proof of 
records anyway. As long as I can 
recognize the information, 1*11 cut it 
as short ae I can to save memory# Bp 
doing this, I have reduced the average 
entry size to about 20 bytes. Tfctu will 
probably use more at first, as I did. 
If you even use 25 bytes, you will get 
an unuseable clear size. As it stands, 
the CLEAR 5000 gives about 22 bytes 
for each of the 230 entries 
dimensioned. 

Dimensioning is simple enough at 
first glance. You just type DJKone 
less than the number of items in 
array) . The problem is: how many can 
you get in after the dimension 
statement gobbles up memory? 
According to my experiments, you will 



ST AB - KIBBfTS 

Welcome to the tenth of my monthly chat*- Many of you 
have commented thai you enjoy reading ihem , and they are 
inter tsnng to write too. So hern goes lor this rr» rrt h. 

In addition to having a Color Computer , do you also have 
a 6B0Q or 6109 system on the SS-50 bus? I do, and I suspect 
some- of you do too, I often git a letter from a reader who 
cither wants to buy or sell *uch a system or components 
(hardware or software) for rt Unfortunately, some of the 
older items are hard to get, yet same of you may have an 
unused one stashed away in the cellar. So why don't wt set 
up an 

$$-59 EXCHANGE 

II you have some SS-50 item for sale, send me a self. 
ad d resse d stamped envelope with a description and price 
written on the back. If you want to buy en SS 50 item, send 
me a postcard with a note on what you want. I will try to 
match up a buyer and seder, put the buyers postcard in the 
selcr's envelope and mail it back out. From that point on, 
it's up to the seller to contact the buyer and make the deal. 

1 Yn proposing this simply because I really like 6800 and 
6809 systems, and hale the thought of something going to 
waste in someone's cellar, while someone else is desperately 
looking for it, (as an afterthought, let's extend it lo anything 
that is 6800 or 6809 related.) Bui since this may potentially 
involve a tot of work fat me J insist that you follow the rules: 
postcards lor buyers, stamped envelopes for setters, only 
one item per card or envelope, clearly stated on postcard or 
back of envelops. 

Now let s see whether we can rescue lorn* of those gems 
in the cellar or attic! 1 

AM DEM TOO 

Yea, PtVt somen a pair of Amdefa I" drives, and now 
supply our software on Amdek casks too. Just specify <m 
your order . There's a |3 extra charge due to extra handling 
and higher media costs. By the way. those little 3" disks are 
neat, 

SPEAKING OF NEAT Tl*NfSS 

The Utile MC-10 computer is also quite neat. It usesa6603 
nscroprocessor. which is more Eke a 6KB than a 6809. Tm 
sure that it's used because it contains two input/output 
ports which save the expense of an external I/O chip. 
Interestingly enough, the 6903 has a built -m port for serial 
input and output, but the MC-10 doesn't use it because it 
doesn't support 600 baud operation, needed for 
compatibility with the larger Color Computer. Instead, 
serial output is handled the same way as on the Color 
Computer, with s software routine. Though the manual 
doesn't say so, you can change the output baud rate by an 
appropriate poke. For example POKE 16932,245 switches 
the output to 300 baud. You can try other values for other 
baud rates too. 

By the way, the MC-10 1 also has the CLO ADM and EXEC 
commands, though the book doesn't mention them. We use 
those in our MC-10 software, Available so far are the 
HUMBUG monitor, REMOTERM ft mote terminal 
package, and COMMTEHM communication* program. A 



Star-Kits 



SPfELL'nfFlX 

Regsrdlsss of whose text pnXtssor you w, let SPELL "N FK find 
and fix your ipsfJng and typing mistakes 11 reads real faster than 
you can, and spots end corrects errors even «xperi«Ked 
proofreader! miss. Ii n compatible with al Color Computer text 
procrttori. *M29 m the Radio Shack taste or cauete* wwont; 
$178-58 in the Flex version. (20.000 word dktoniry is standard 
optional 75,000 word Super Dictionary costs 350 adrJtaonsi} 

HUMBUG - THE SUP LB MONITOR 

A >»n^.i. monlkM and debugging, system which lets you input 
program* and data etto memory, bsi memory content*, nstn 
mufc^fe breakpewMt, wngte il*p, test, check****, and compare 
memory contents. And data in memory. Dart and stop programs, 
upload and download, save to taps, connect the Color Computer to 
a terminal, printer, or remote computer, and more, HUMBUG on 

itt rT^S*"* "*** *"* m96 < *^ M Mi vw »« n *« *T-EX or 
VTAR-DOS 64 costs J59.95, MC 10 version |» 95, 

STAB— DOS 

A Disk Operating System tpetiafy deskmed lor the Color 
Computer, STAR DOS is fully compatible weft vow preset* Color 
Computer disk kernel — it reads casks written by Extended Duk 
Baste and wc* uvrss STAR-DCS for 1*K or 32K sy*r«mi eo*u 
W9 .90; STAR-DOS M for 64H systems costs *7«_90. 

STAR FLEX 

The best implerneniation of FLEK for the Color Computer. 
Complete with all unities, i ezE editor, macro ussmbkr. and 
HUMBUG debug monitor, 1225.00 



ALL IN ONE - E*ftf*r Etc, 

Three proaramt in one — a Jul function Edkor. a Text IVorissui 
f - * !££* Li*/ 1 -**** Prosranv Al th* lor iusl J50. Requires 
STAR-DOS and BK, or STAR DOS 64. or HEX. specxWhkh. 

DBLS for Dsta hw 
DBLS standi for Data Base Lookup System, A siaw^ system 

ice starching for a selected record in a sequential dak He Succeed 
**h SPELLS FW's 20,000 word dichonary as a lampk datable-^ 
hns you look up the spesmg of any word in under FOUR seconds 
Priced at 139%. Requires STAR DOS. 

CHECK TO TAX 

Home eccounohg package combews checkbook maintenance and 
ncome La* data coUecnon. Written m Bask; lor other RS Dak or 
Fkrs, UO. 

REMOTEBM 

REMOTERM - TrokMyourCcCoorMClOnto«rK«cornpuler, 
operated from a remote terminal 119.95,. disk or cassette. 

NEWTALK 

NEW TALK — a memory axamme utility for machine, language 
pfOBFsrnmeri which reads out memory content! through the TV 
set speaker. 120, disk or results.. 

SHRINK 

SHRINK — our version of Ekes, in machine linguae* and 
extremely Jail. SIS. disk or cassette. 

EDUCATIONAL SOFTWARE 

Introduction to Nurnsncal Methods - college level course on 

computer math. 175.00, disk or cesette. 

We accept cash, check, COD. Visa, or Maeier Card. NY Stats 

rsseknu pkrase add appropriate ules lax, Add K IB above price 

for AMDEK 3' disk versions, 

(JT_EX ii i trademark of Technical Systems Consuhsnti, mc. 

Everything eke in (hit ad is a trademark of Star-Kits.) 



PO. BOX 209 - J 
MT. KJ5C©> MY. 10649 

{914) 241-0287 
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THE BEST OF DSL. 



Now you can get DSL'S best selling programs for less than $2.00 
each, 20 titles, such as Word CG7, Geo-Studies, Packmaze, as well 
as some completely new additions like Autoline, Hard Copy, and 
many more. Still the best just price makes them better, 

$39.95 TAPE $49.95 DISK 

■ 

As a special offer, receive a program package which includes 58 
public domain (on tape) programs at no extra charge when ordered 
with THE BEST OF DSL Offer expires 12/31/83. 

JDBDOS Unleash the power of the CoCo 

An enhancement of R/S disk basic. Some of the exclusive features 
include quick entry of commonly used commands. M/L monitor plus 

much more* 64K 1 »0 Disk basic required. 

$49.95 DISK 



SUPER CONTE8TER 1 - 16K - $14.95 
SUPER CONTESTER II - 32 K - $24,96 
Keep track of 1400 entries in 1 6K or 27O0 in 32 K, 
Sort, Print, Much More. 
Country Locator - $14,96 
Enter Call Letters, Returns Beam Headings from 

any where in the USA. FAST 
Electronic Callltfrapher- The Hit of Rainbowfest 
Old English or Chancery Cursive 
type font. Works with LP VIII or EQUIV. 

Version for Gemini 10 or 15 
Version for Epson w/Greftrax 

BOTH TYPE FONTS $ 1 8.95 DISK ONLY! 
Please specify printer version when ordering. 

THE GENERAL. 

The "GENERAL" on disk. Over 

400 accounts nearly 5,000 transactions 
per disc. Improved screen display. 

TAPE $39.95 
DISK $49.95 



HARDWARE FAVORITES 

32/64K GRAND SLAM $75.00 

For E or F Board w/1 , 1 ROM (EXEC 41 175) 

Add $1 5.00 tool deposit (refundable) 

16-32K RAM SLAM (Piggy Beck) $49.95 

Both slam kits soldo Mess 

ONE YEAR WARRANTY 

RS-232 SWITCHER 

Stop Straining Those Connectors. 

Stop Listing the Modem, 

Stop Trying to Log on the Printer 

Fast, Fast, Relief 

The RS-232 Switcher, 

2 WAY $29.95 

3 WAY $39.95 

ATARI JOYSTICKS 

No adapter required. 

GET THE REAL ARCADE FEEL 

SO DAY WARRANTY 

$14.95 EACH 
2 for $28.00 



DSL COMPUTER PRODUCTS INC 



n 



MasterCard 



*** 



P.O.BOX 1113 S DEARBORN, Ml 48121 
313-582-8930 • 313-582-3400 (Data) 

Micbltfu HHlaito Add m% Salaa Tax To Ow4\mr 



lacMa ta-aa far S 
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5900 Cassandra Smith Rd. * 



HtxsonJN. 37343 



COLOR MICRO JOURNAL™ Is A Monthly 
Tabloid Publication for Color Computer USERS! 

•• 

COLOR MICRO JOURNAL™ is a Magazine FOR 
Color Computer Users BY Color Computer Users. Col- 
umns on various compatible Operating Systems, Lan- 
guages, Uses (Bulletin Boards, Clubs, using the RS 

BASIC, and so on), etc. 

••• 

Programs - Games - Reviews - Education - Hardware - 
Software - New Product Announcements - Books 

•••• 

Get the MOST from your COLOR COMPUTER 

without being an Engineer. 

DONT MISS A SINGLE ISSUE 

Subscription Rate of only $16.50 a Year!!! 



COLOR MICRO JOURNAL™ published by the 
ONLY pure 68xx, INTERNATIONAL Computer Maga- 
zine. '68 Micro Journal has provided coverage for over 
FIVE Years. We KNOW the Color Computer, the Soft- 
ware (both FUN and WORK) that IS and CAN BE run on 
it. We KNOW the products that ARE, CAN BE, or 
WILL BE used on the Color Computer. 




For Ordering Subscriptions By Phone 
Call 1-800-338-6800 



fllnlnr Muxa loiiroal 

Limited Time Charter Rates 

USA - SI 6.50 per year. Canada A Mexico ■ $23 .(Ml per year 
Surface Foreign ■ $28 till per year. Airmail Foreign - $52,111) per year 



Color Micro Journal i* a trademark of Computer Publishing Inc. 
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lose about 7 bytes fear each element in 
the dimension statement. If you have 
one DIM(230), you will lose about 1600 
bytes of memory. If you have two 
DIM(230)>, It will be about 3200* 
HICROBQOKS has six, which uses roughly 
9.5K. Perhaps someone can give us an 
accurate way to calculate it. I have 
had different programs show a byte loss 
of from 5 to 7. 

To experiment with these 
parameters, use the BASIC EDIT Ocrarand 
to put in different CLEAR and DIM 
sizes, then RON again. If you have 
reserved too much space, you will get 
an CM ERROR* Which breaks you out of 
the program. This means you ran out 
of memory before the CLEARing and 
Dimensioning were complete • If you do 
not get an om error, you Know it goes 
into the memory you have available, but 
then you will want to know if you have 
enough room left to use the Program* 
Type PRINT m or the shorter ? MM (? 
is short for PRINT} and <ENTER> to see 
how much room you have left- 
It would be a good Idea to leave two 
or three hundred bytes in memory. The 
computer will use a certain anoint as 
it functions, and will break out with 
an OM ERROR if enough room is not 
available. MICROBOOKS seems to need 
about 175 bytes above the program 
memory, but I leave more just to be 
sure it doesn't barb. 

Since QOSUB's make it hard to follow 
a program, here's a rundown of the 
Subroutines in .MSOBQCVB. 

6000. SELECT ONE 
6100. YOUR SELECTION 
6200. Tape loading 
6300. NOT PROGRAMMED 
6500. Scan screen print 
6600. ANOTHER SCAN? 
6800. IS TAPE LOADED? 

program manoi 

One of the fun things about 
programming is that you can do ANY job 
in more than one way, and many jobs in 
many ways. Seme times you will need to 
change something a little in order to 
use it for more than one function. 
For instance, do a little oomparing of 
IF-THEN and INSTR. 

The menu section in Line 1000 begins 
with a GOSUB to print a prompt above 
the menu. If you don't make use of 
Subroutines in your Programs, you are 
probably using too much memory* Just 
about anything that must be done more 
than once will use less memory if it is 
put into a Subroutine. This is one of 
the ways I cut down the size of the 
original program. Also in line 1000 is 
the setup of the Main Menu, with 
numbers leading to the ON GOSUB in 
Line 1010. The last statement forms an 
"Error Trap" to prevent muter s other 
than the Menu selections from sending 
you on a wild goose chase, or bombing 
the program. If you enter the wrong 
number, the program simply prints the 
menu again. Of course, this happens 
so fast you hardly notice it. A proper 
choice sends you through Line 1010 to 
the Line Number for the selected 
routines. 

Starting at Line 2000 is, first, a 
Sub-Menu for either Old or New Tapes, 
and then another Kind of Error Trap. 
IF you give a valid number UKN you go 
to a line number, or K£E back to the 
Menu again. line 2020 asks if you have 
already loaded the tape and sends yxi 
through Lines 2400 to 6200 to load it 
if you haven't* If you have loaded a 
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Tape, you go to Line 2100 to begin the 
actual entry of data. 

Line 2100 represents a lot of head 
scratching. It was easy enough to put 
in the instructions on how to exit the 
Entry Mode, but I wanted to have 
numbers from the last two entries to 
keep myself oriented as to where I was . 
The problem appeared when I tried to 
go to the Entry Mode without having 
previous entry numbers already in, as 
is the case when starting a new tape 
for a new period. If £ nailed for only 
one back number, it would just leave 
that place blank; but if I called for 
TWO back numbers when there were none, 
I would get an FC ERROR* So, by 
checking whether H 1 H had been chosen 
frcm the menu (NEW FILE), I would know 
whether a file had been loaded or I was 
starting a new one, and therefore, 
whether back entry numbers were 
available* If not, the back number 
call is bypassed until after the first 
entry by IF-THEN* ing to Line 2105. 
Because Line 2100 is used Over and 
over, it would not do to have the back 
numbers skipped every time, so Line 
2105 nulls M S* to allow the program to 
get past the IF-THEN the next time 
around and all times thereafter * It- 
also spaces down one line on the 
screen for display clarity* The GOTO 
in Line 2100 skips the space in 2105 
after the first entry. Actual input of 
data begins at 2110. 

Since this is also your location 
when you are finished Entering Data, an 
IF-THEN tests for "XX" (which is the 
signal to the Program that you are 
finished entering data), and if XX is 
input, you are sent to Line 2180 to 
Save your Data to Tape* Similarly, the 
next two lines test for CC, which is 
the sign for "correction needed", and 
sands you back to start that input 
over again. 

The next point of interest is in 
Line 2140, where you have one more 
chance to correct your current entry* 
INPUT and <ENTER> are used here 
instead of inkey$ to provide some error 
trapping* The truth is that the trap 
only half works, because I felt that it 
would be a lot faster if you didn't 
actually have to hit Y each time you 
had finished an entry. While "N" will 
return you to the start of the same 
entry again, you will go to the next 
entry if you hit the <ENTER> key- 
Line 2170 sends you back to 2100 
after incrementing N by 1* in your 
first entry, input N will be input 
number 1. The next one will be input 
(N+l) or 2, since N is now equal to HH, 
and so on until you finish. 

After you have ended your input 
(entries). Line 2190 will ask how many 
times you want the data saved. I put 
this in because I had had so many tape 
glitches that one save was useless. By 
having several saves in the tape (l 
usually have 3 or 4), you can always 
find a good one. I have greatly 
reduced the problems, but that is 
another subject. At any rate, you may 
save as many times as you wish. The 
variable SA carries the nuiiber of saves 
desired into the BDR-NEXT loop in Line 
2300. A FOR-NEXT loop is nothing more 
than a counter which counts from the 
number before the TO to the number 
after the TO. If you press <ENTER> 
without a number, the 1 in Ftctw=lTOSA 
(Line 2300) becomes the only number to 
be counted, therefore only 1 save is 
made. 

Oine 2300; By putting the prompt 
"STORING DATA" in the middle of the 



screen, you can help eliminate that 
nagging feeling that maybe the computer 
is hung up while it is sitting there 
saving large amounts of data. Of 
course, you could turn up the sound 
and listen to the l*s and 0*s fly, but 
that gets old fast . You may want to 
try changing the CLS (which clears old 
information off the screen) to CLS0. 
By doing this you will have a black 
screen while saving the data, when it 
goes green again, the save is done. If 
you try this, you'll also want to put a 
semicolon (|) between the quote (") 
and the colon (t)j this will prevent the 
green from running out to the edge of 
the screen after the prompt* Also, if 
you put an extra space before and 
after the prompt (inside the quotes), 
it will Loofc a little better. 

You will also find an example of a 
"Nested Loop" in Line 2300* The 
innermost loop prints the array to the 
Tape starting at the first X, in this 
case 1, and looping (counting) until 
the N'th X. N is equal to the number 
of entries you made, and determines how 
many loops are required to complete 
the array. Each loop (the term loop 
applies both to the FOR-NEXT loop 
itself, and to each cycle through the 
loop) prints one entry, and when all 
strings in that entry are printed, the 
NEXT tells FOR to loop again for the 
next higher number. Thus each entry 
is printed in turn until the entire 
array is printed. 

Note that since N has become a 
total, the "print to tape" part uses X 
to count its* way up to N. Note also 
that after the cassette File was 
opened for output (0PHIW,#-1L and 
the Save given a name ("LEDGER"), the 
value of N was printed to tape for 
later reference ( PRIHT#-L,N) . When N 
number of loops has been made, the 
cassette File is closed, and control 
moves on to the next thing, which is 
actually another loop inside the X loop 
in the nest. This T loop is only a 
timer to allow space on the tape 
between saves. Again, control moves 
on. This time, a coma is substituted 
for a NEXT, but the effect is the same 
and a few bytes are saved. The 
program moves to the next loop back 
that has not been done, namely the V 
loop* It Loops SA nuiiber of times, the 
number of saves you called for, and 
goes on. After the prompt there is 
another timer, to give you time to read 
the prompt, and then you go baek to 
1000, the menu* 

NOTES ftr the beg in n er s! 

Each entry you made had six 
parts, called strings* The number, 
for instance, became NU$(N), the 
date became da§(n), the amount 
became AM(N) etc. As each entry 
was made, it was given a number to 
replace the N in each string in 
that entry. Since each entry is 
numbered in order, each is printed 
to tape in the same order by the 
PRINT #-l,NU$ etc* #-1 is the 
basic word for the tape recorder. 

When you want to add data to what 
you already have, first choose Nunfoer 1 
from the Main Menu for LEDGER and then 
Number 2 from the Sub-Menu for EXTEND 
FILES. You are then sent to Line 
2400, which handles the loading of the 
most recent tape data into memory. A 
GOSUB sends you to Line 6200, which 
loads the data by reversing what was 
done in Line 2300. The value of N is 
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TEN MOST-ASKED QUESTIONS 

about DYNACALC 

THE ELECTRONIC SPREAD-SHEET FOR 6809 COMPUTERS 



1. What Is an electronic spreadsheet, anyway? 

Business people use spread-sheets to organize 
columns and rows of figures. dynacalc simulates 
the operation of a spread-sheet without the mess 
of paper and pencil. Of course, corrections and 
changes are a snap. Changing any entered value 
cause* the whole spread-sheet to be re-calculated 
based on the new constants. This means that you 
can play, what if?' to your hearts content 

2. IS DYNACALC just for accountants, then? 

Not at all- DYNACALC can be used for just about any 
type of job. Not only numbers, but alphanumeric 
messages can be handled. Engineers and other 
technical users will love dynacAlCs sixteen-digit 
math and built-in scientific functions, you can build 
worksheets as large as 256 columns or 256 rows. 
There's even a built-in sort command, so you can 
use dynacalc to manage small data bases — up to 
256 records. 

3. What Will DYNACALC dO for ME? 

That's a good question. Basically the answer is that 
dynacalc will let your computer do just about 
anything you can imagine. Ask your friends who 
have VisiCaic™, or a similar program, just how 
useful an electronic spread-sheet program can be 
for all types of household, business, engineering, 
and scientific applications. Typical uses include 
financial planning and budgeting, sales records, 
bills of material, depreciation schedules, student 
grade records, job costing, income tax preparation, 
checkbook balancing, parts inventories, and payroll. 
But there is no limit to what YOU can do with 
DYNACALC. 

4. DO l have to learn computer programming? 

NO! DYNACALC is designed to be used by non- 
programmers, but even a Ph.D. in computer 
Science can understand it. Even experienced 
programmers can get jobs done many times 
faster with DYNACALC, compared to conventional 
programming. Built-in help messages are provided 
for quick reference to operating instructions. 

5. do I have to modify my system to use dynacalc? 

Nope, DYNACALC uses any standard 6809 config- 
uration, so you don t have to spend money on 
another CPU board or waste time learning another 
operating system. 

Order your DYNACALC today! 



foreign Dealers: 

Australia & Southeast Asia: order from Paris Radio Elec- 
tronics. 161 Bunnerong Road (PO Box 580> Kingsford, 
2032 NSW Australia, Telephone: 02-344-9111 

united Kingdom: order from Compusense, Ltd., PO 
Box 169, London N13 4HT. Telephone: 01-882-0681, 

Scandinavia: order from Swedish Electronics hk ab, 
Murargatan 23-25, uppsala S-754 37 Sweden. Tele- 
phone: 18-25-30-00, 



6. Will dynacalc read my existing data files? 
you bet! DYNACALC has a beautifully simple 
method of reading and writing data files, so you 
can communicate both ways with other programs 
on your system, such as the Text Editor, Text 
Processor, Sort/ Merge, stylograph™ word 
processor, RMS™ data base system, or other 
programs written in BASIC, C, PASCAL, FORTRAN, and 
soon. 

7. HOW fast IS DYNACALC? 

very. Except for a few seldom-used commands, 
DYNACALC is memorY-resident. so there is little disk 
I/O to slow things down. The whole data array 
(worksheet* is in memory, so access to any point is 
instantaneous. DYNACALC is 100% 6809 machine 
code for blistering speed. 

8. is there a version of DYNACALC for MY system? 

Probably. You need a 6809 computer (32k 
minimum) with flex™, unlFLEX™, or os-9™ 
operating system, you also need a decent crt 
terminal, one with at least 80 characters per line, 
and direct cursor addressing, if your terminal isn't 
smart enough for dynacalc, you probably need a 
new one anyway. The uniFLEX and os-9 versions of 
dynacalc allow you to mix different brands of 
terminal on the same system. There's also a special 
version of dynacalc for color computers equipped 
with FLEX (Frank Hogg or Data-comp versions). 

9. how much does DYNACALC cost? 

The FLEX versions are Just $200 per copy; UniFLEX 
version $395; 05-9 version (works with LEVEL ONE or 
LEVEL TWO) $250. Orders outside North America add 
$7 per copy for postage, we encourage dealers to 
handle dynacalc, since its a product that sells 
instantly upon demonstration. Call or write on your 
company letterhead for more information. 

10. where do i order dynacalc? 

See your local dynacalc dealer, or order directly 
from CSC at the address below, we accept 
telephone orders from 10 am to 6 pm, Monday 
through Friday, call us at 314-576-5020. Your visa or 
Mastercard is welcome. Please specify diskette size 
for flex or OS-9 versions. Software serial number is 
required for the UniFLEX version. 



Computer Systems Center 

13461 Olive Blvd. 

Chesterfield, mo 63017 

(314> 576-5020 



% 



uniFLEX software prices Include maintenance for 
the first year. 

dynacalc Is a trademark of 
computer Systems center 

vlsicafc Is a trademark of vislCorp. 

stylograph is a trademark of Great Plains computer co. 

RMS Is a trademark of Washington computer services 

flex and uniFLEX are trademarks of TSO. 

OS-9 is a trademark of Microware and Motorola. 
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loaded first (remember the PKINT#-LN) 
so the computer will Know how many 
entries there are* Then the loops go 
to work as before. 

After the data is loaded from Tape, 
you go back to line 2100 to enter data 
the same way as before. But, there is 
a difference. Rather than starting 
with 1, the computer starts with the 
current value of H which was just 
loaded. After each entry, the value of 
N ie increased by one (remember the 
N-N+l), and when the entries are 
completed, you will have a new N total. 
Starting out with the same number you 
ended up with on the last tape might 
look like it would replace the last 
entry you made and, in feet, it does. 
But, remember that your last entry was 
XX to sigqal the end. Starting out 
with the same number causes the first 
new entry to go where the XX was, so 
there will be no lost apace. When the 
save is made, the old array and the new 
array are saved together as one new 
array, so you will not have to keep the 
old tape unless you want it for a 
partial backup* 

The next section of the program 
starts with Choice Number 2 on the 
Main Menu - "TOTALS 11 • You are 
branched to Line 3000 for a Sub-Menu* 
After a quick GOSUB for a prompt, 
there are three chioces. You will 
soon find that only the first one works 
as of now. As mentioned, a Balance 
Sheet has yet to be added, but it 
could be included in the space provided 
by choice #2* Choice #3 is similar.. 
GOSUB6100 is another screen prompt, 
and the branching and loading which 
follow should be familiar now. 

The TOTALing Routine is similar to 
the one on page 229 of the Radio Shack 
"GETTING STARTED ..." Manual that 



comes with your OoOo. It would have 
been nice if they had bothered to tell 
you that that little program only works 
for ten checks. I learned that this is 
because the computer will automatically 
dimension an array for 10 elements if 
you have not specified any other 
number. For some reason, I had a real 
hard time getting this information; 
maybe I missed something in the book, 
but I sure didn't know it* Finally, I 
got the information I needed concerning 
arrays, not from a Computer Center, 
but from Roger Bryson, who worked in a 
local Radio Shack Store at the time. I 
certainly got a lot of help from Roger, 
and I wish him luck in his new 
business. 

When the input is made answering 
"JOB OR ACCOUNT?*, the B$ labels it as 
just that - B$. A loop is set up 
based on N again, but this time a 
different routine is placed between the 
FOR and next which searches for a 
string that is the same as B§. once 
again, the amy is gene through from 1 
to N. If a string match is found under 
ACCOUNT or (ELSE) JOB, the amount 
listed under the same entry number is 
added to T, which was set to at the 
beginning* More loops are ocnjaleted, 
and each time a match is found, the 
corresponding amount is added to T 
until all matches are found; the TOTAL 
is then printed for that string. 

When I think I have an understanding 
Of PRINTUSING that is adequate, I may 
write some about it- In the meantime, 
1*11 just say that it keeps your figures 
in the right place, and let you look in 
the manual for information. 

At the end of Line 3140, GOTO3130 
sends you back for another search 
based on another JOB Number or 
ACCOUNT, t is reset to to clear the 
way for another totals routine* 



SWP 7BASB 



A MATHEMATICAL DIVERSION 

FOR 
MATURE GENTLEMEN! 

by BR1TT MONK,CDP 

GALAK SOFTWARE RATED "R" 




$14.00 16K 



CASSETTE 



Featuring i 



HIGH RES GRAPHICS DANCING FAST ACTION 

RYTHM & BLUES MUSIC MACHINE LANGUAGE 



Check or Money Order Only 
SOLD IN PLAIN BROWN WRAPPER 



by BRITT MONK, CDP 
GALAK SOFTWARE 
925 Dal ton Circle 
Morristown, TN* 37814 



A lot of lines in this program Open 
with a cls in order to keep the screen 
neat. While I wanted to Clear the 
Screen before this part, I couldn't put 
a CLS at the beginning of the line 
because I wanted to have several totals 
on the screen at once ■ If it was 
there, it would clear each total before 
another was printed . That is why you 
see the CIS at the end of the previous 
line* This is one of several 
imprcvements over the larger program in 
listing 1« The CLS could have gone on 
a line of its' own, at the expense of 
several bytes of memory. 

Lines 3200 and 3300 are spaces for 
future routines, as mentioned earlier. 
The subroutine displays a message and 
t lines it for several seconds, then 
returns to the main menu. 

The SCAN Routine starting at Line 
4000 is for the purpose of Looking at 
your files after they have been put 
into Memory and/or on Tape. First you 
are asked whether you have loaded the 
Data Tape, which is really asking if 
the current data is in memory, not 
whether you have put a tape in the 
recorder, etc. If the data is already 
in memory, you go directly to the SCAN 
Sub- Menu. If not, then you get a 
subroutine which loads the Tape. This 
1$ the same subroutine that is used to 
load for the LEDGER extension and for 
the TOTALS retrieval. The Tape Load 
prompt could have been put in a common 
sub- routine, but, as it now stands, it 
identifies where you are in the pro g r am 
in case that information is needed. 

Lines 4070 and 4080 both have 
nested loops as well as sub-routines 
which do work during the main loop. 
The sub-routines print your files to 
the screen, but, since the printing is 
done so foat, it must be slowed down fcy 
the nested timing loop. Each time an 
entry is printed, time is counted o££ 
before the next one is printed* If you 
see something you want to copy you can 
press ffiHY G to stop the scrolling. 

HB fix* beginning beginners 

Your manual tells you that SHIFT 
§ will pause program execution. 
You do not need to hit them at 
exactly the same time. I like to 
press first <SHIFT> then % in a 
sort of rocking motion. Your 
manual also says to press any key 
to continue. Since P is right 
next to 9 1 always use it when 
pausing and continuing. 

Instead of the nested timing loop, 
you could experiment with straight 
printing statements putting PCKE359.60 
before the print and POKE359,126 
afterwards. This will print one 
character at a time to screen, which 
is much slower. The strings have been 
placed onto the screen in a way that 
fits them all onto two lines. This 
allows several entries to be on the 
screen at the same time, which is more 
than some commercial programs allow. 

Line 6 500 begins with a PRINT 
Statement which spaces entries apart 
for better readability. For some 
reason, the first ten or so lines do 
not space??? The TAB Statements are 
similar to typewriter tabs. The item 
is printed at that ntrober of spaces 
across the screen. The PRINTUSDIG 
statements keep the numbers right 
justified, as well as covering a 
rounding glitch in which the computer 
sometimes prints an unwanted nurber of 
digits to the right of the decimal. 
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$24*95 Tape In&c^vitlCni 

Management Statcm 

A user-oriented,, easy to u» personal database management system tor the TRS-flO* Cotor 

Computer with these outstanding features: 

■ keeps files ol programs, names, addresses, b*rtisdays. recipes, etas* or club rosters, etc, 

* variable record and Held lengths 

* prints* Substitution editor 

* up to S u sot -definable liatds 

* ML son (up lo 3 liekds), search and delete functions 

* user -definable printer formal, lor any printer 

* up Id 230 characters per record 

Price fftefudes the database management .system, ftjif documentation including a reference 
guide and 1961 Biography of Color Computer ankles. 

Requires T0K Extended Bask- 32K rmcommandad. 

1982 TIMS Bibliography • $9.95. 



$19.95 



The TIM5MAIL mailing list manager has moat 
of the line features ol TIMS as wall aa these 
apeciaJ majang label lectures : 

• uesr selected label formats 

• continuous or single sheet 

• designed for 80 column printer 

• 1 , 2 or 3 labels wide 

• 2-5, 2-75. 3. 3.5 and 4 inch labels 

• select Maid* to print 

• select records to prtni 

• fast ML search, sort < up to 3 fields) ana detete routines 

fleQutnM 32* firfentfed flewc 





RATECTORo $99.95 

Qw disk-based anbpkacy applications development system has these features; 

* Protect your dish software from piracy 

* Users can create jnorvaxcutable) backups 

* Protects ML or Base programs 

* Your program is encrypted, when prevent? listing or disa*semb*|i 

* Loader displays graphic title screen, then toads and starts your program 

* Incrementing senal numbers and other user data supported 

* Automatic generation Of copies from your master for 2 (or more] disk drives 

• Disk mrbalization 

• Copy al files Irom master lo target 

• Piratecr up to 5 programs on target disk 

* 100% Machine Language 

* Easy to use lull-screen menu oriented 

* User subroutines 

• User subroutines may be LOADMod 
- Usable by ML or Basic 

• Border drawing routine 

• Keyboard input routine ideal for your programs 

• Position independent 

* Break key disable lor Basic programs 

* Trlle screen graphics editor lo create your own title screen 

• High resolution 

. Semigricnic modes 8, 12 and 24 (54x64. 84*9* and 64*128) 
-8 colors 

• Combine ten* with grepfws 

■ Load, display, save graphic (Hie screens made with other graphics sorters 
+ Protect demo drsks you send out 




$19.95 



Disk Version - $24.95 

Disk version with all 62 stories - $49.95 

A sensalioneJ end educational version of a popular party game tor the TR5-OT Color 
Computer... For 1 to 10 players Load a story into the computer. The players are asked to 

supply a noun, verb, pert ol body , c«rte*rity,#te.whteh me program uses to com 

The etewp . wntaft f» flUa'eyed «*w nil words mrm entered will be hitarwjMS 

Pnce ■notares S*y Synrtr game. u**r guide and 2 

stones. 

Aeourej J8X £*f»nded SaWC f»X *jr <*$*). 



wpnk,o o o $19 - 95 

Auto Run is a miity program tortheTRS-aO* Extanded Basic Cotor Computer. It is used to 
add convenience and professionalism to your software, 

Auto Run will help you create your title screen witn the graphics ecMor. The graphics editor 
iliowt you to chooss a background color and border style. Using the arrow keys end several 
other commands you can draw pictures, block letters and also include text. 

Auto Run will generate 4 machine language loader program to preoaed your program on 
the tape. Than, to start up your program, simply type CLOADM to load in the Auto Run loader 
program, which will then automatically start itself up, display your tide screen, load your 
program end than RUN or EXEC ft. 

Alee you may record a vocal or mueJcal introduction pteceec«ng your program. The Auto 
Run loader wei control the audio orvoff. 

Basic programs can be set to toed anywhere in memory above toe PCLEAH page. 

Software authors: The Auto Run prefix may be appended to your software products. 
Pnfre rncludes compare documenfarjkvr end aasambiy Soutc* biting. 
Requires JSK fxfertded Bawc. 



Galactic Hangman $17.95 

A great new twist lo the popular educations! word guessing game for the Cok* Computer. 
Large (700 words) and sophisticated vocabulary. Or enter your own words, your child's 
spelling ut toreign language vocabulary, etc 



FREE 




Outstanding high resolution graphics. 

animation and sound effects. 

Price wKfudes both 1SK 

and 32K verstons. 



You Can create your Own stones or order story tapes from the selection betow. 

Each atorr tape to i9.se. 

amy Syntax stones * Ten stories per tape. 

SS^ooi ■ P*ry rates ss-ow ■ Ctm+At events 

55-002 • Smg *rotrg SS-OOC - Aovanrun>.S&-fi 
SS4Q3 - X-Rered SS40T • Po&Qum 



»• PREREADER $19.95 Disk -$24.95 

Heto your preechooi age (3-5) child learn to reed wtrnTWaeaaytouaerrawuHlrtvenpregram. 
Great high resolution graphics, colors end sound effects. Includes capital and smsii- lefts re, 
numbefi, shapes and colon. r*ucfi morel Requires 32K Extended Basic and joysticks. 



n 



^STATGRAF $24.95 



Disk -$29.95 



STATORAf « a sneer regression analysis package combined with eophisfcated high resolu- 
tion rjlrjajne/lino graprang. Features include: allows entry ol up to 250 pairs of |x,y) data, 
transforms observations using togavlthmlc, square root, inverse exponential or additive 
codes, plots any number ol data sets on s angle graph, type information directly onto the 

graph in 3 orientations. 



Requires 32K Extanoad Basic. 



U C H R 





•TRS-80 is a rnMiemenY of Tandy Corp. 



SUGAR SOFTWARE 

2153 Leah Lane 

Reynoldsburg, Ohio 43068 

(614)861-0565 

CIS ord«r» EMAIL to 70405, 1374 



t!«HK Hi.llt 




tht— r,. 



Add $1 .00 per tape or dish tor poelege end 
handling, Onloana add 53% safes tax. COO 

orders art welcome. P e a ls r Inquiries e> 
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The Original FLEX™ for Color Computers 



* Upgrade to 64K 

* RS to FLEX, FLEX to R S file transfer ability 
' Create your own character set 

" Automatic recognition of single or double density and single or 
doubled sided 

* All features available for either single or multiple drive systems 

* Sellable Disk Drive Seek Rates 

* Faster High Resolution Video Display with 5 different formats 

* Save RS Basic from RAM to Disk 

* Move RS Basic to RAM 

■ Load and save function on FLEX disk 

* 24 Support Commands 1 2 wi in Source Text 

* External Terminal Program 



DISK DRIVE MOQOB, etc, 

"These Fteckage Inrlrrts the Radio Svtdk. Disk Controller, Dirt Drive* with 
tower Supply and Cabinet,, and Disk Drive Cable: 



IMC f 1 
FM #2 
PMC #3 

■ Aft r^ 

PMC 15 



1 Single Sided, Double Dtnsity Sya, 5399.55 

2 Single Sided, Double Density Sya . ?675. 95 

1 Double Sided, CDuble Density Sya* $569.95 

2 Double Sided, Double Density Sys. $919.95 
2 Ou» Ttonline Double sided. Double Dsnsity sye. $699.95 
2 Tendon Thinline Single Sided, Double Density Sye- $599.95 



DATA-hCCH? has everything you need to rasks your TSS-GSSC Oolor Ocnputer 
WCSK for YOU? from Parts and Pieces to Full Reedy To Use System, DMA- 
CCHP designs, sella, services, and SUPPORTS Oor^puter SYSTEMS, not just 
Software- OUX DKIh-CCMP TODAY to wake your CfcHfmter HOWi FOR YOUl 



Special General version +■ Biitor & Assembler (iwhich normally sell 
for SSa.ae ea.) $150.00 

P IW K (MI) FUX9 Conversion Rout, for the RS Disk Controller 

when purchased with Special General PLEX9 sys. $ 49.95 

when iwrchaeed without the General FL£X9 Sys. § 59*95 

Color Oaqputer With 64K RAM and EXT, BASIC $399.95 



SPftHAL fllUlHI PM3CM3ES 

64K Radio Shack COLOR CCMPUTER, Radio Shack COLOR DISK OOfniOLLER, a 
Disk Drive System, Special General version of FI£X$V F-MATE(FtS), and a 
Box of 10 Double Density Diskettes, a OCMPLETE ready to run SYSTQl on 
your Color TV Set* 

$999,95 

64K RftdlO Shack COLOR COMPUTER, Radio Shack COLOR DISK CUWTKJLIZR, a 
Disk Drive System, and a Box of 10 Double Density Diskettes, a QQWLETE 
ready to run KYSTTM on your Onlor TV Set;. 

$799,95 



Radio sheek Disk oontroller 

1 Single Sided, Double Density Disk Drive random 

1 Double Sided, Double Density Disk Drive Quite 

1 Qume Thinline Double Sided, Double Density 

1 Tendon 40 Track SSDO with Cabinet and Power Supply 

Single Drive cabinet with Power Supply 

Double Drive Cabinet with Rower Supply 



$169*95 
$229*95 
$319*95 
$249.9* 
$259.95 
$ 79*95 
$109*95 



EPSON RX-80 
EPSON MX-100 
EPSON MX-A0 
EPSON FX-80 



$375*00 
$725*« 
$395*00 

$599*00 



SERIAL RCfcHC£ 

MX-Series $119.95 

RX-Fx-Seriea S 99-95 

Spectrin MX-Series $ 54.95 

Mark Data Keyboards $ 67.95 

fLOPPI DlSRSTfBS 

MEMOREX VERBATIM 

5" Soft Sector Disks 

Single Sided Single Density S2,40ea. $2*75ea 

Single sided Double Density $2*40*a $2.75ea 

Double Sided Double Density $4*92ee 

Plastic Storage Box $2.00ea 

8" Soft Sector Disks 

Single Sided Single Density $3*75ee 

S ingle Sided Double Density $4*10ea 

QEHJbia Bi4ad Etoublo Density $4-75*0 

Plastic Library Box $5.1 



Single Drive Disk Cable for RS Oontroller $ 19*95 

Double Drive Disk Cable Ear RS Controller 5 24.95 

Micro Tech. prods. Inc. LOWER CASE KM Mapter $ 74.95 

Radio Shook BASIC Version 1.1 ROM or 1.2 ROM $ 34.95 

Radio Shack Extended Basic ROM $ 74.95 

Radio Sack Disk Basic ROM 1,1 S 29.95 
Screen Clean - Clears up Video Distortion On tour Color amputee $ 39*95 

Set Of Eight 64K RAM Chips w Mod Instructions $ 49.95 



For Ordering Call TOLL FREE 1 •800*338.6800 



LAST OF PRODUCTION*!! 

!! LIMITED QUANTITY !! 

SWTPC 8212 
Intelligent Terminals 

New & Demo Models 

At Discount Prices 

Remaining Supply of 
SWTPC 8212 CRT Terminals 



EM-82 Video 
Terminal 

Emulates the 8200 Series from SWTPC 



■Flex h i s-seemfrtt 01 Teofwrcai Sys iem» ConsuKsnti 
"OSA * a esosmsrfc of Mtcfowm 




DATA-COMP 

P O, Box 7S4 HIXSON* TN 37343 
1-615-642-4601 




Data-Comp— South East Media & 68 Micro Journal Are Divisions of CPI 
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obbb fox aalio Ehack: IP-VHJVI1I t Of lW,''2aTJ,''a«a prmMra 
4aTrla* Pw Bpaori w,' oraftx-aa and Qk-arUfaoi * rtintaza 
QaT-C br i3aaiiu. IB ait 11 PTlirtari 
aanP tar '""* rmritaT ITi_ i'.7l 1 



ttdft- tha Prlatnot taft car lagM cr 



HH> a-a » 'JtlM rrcjran 

* nanui DTiwtn rXTaaTaEi ftaOC rXOtram ahleh (Una tha antiy of up to U Haaoa par Day. *Kh at *a* a*V anulii up to » 
Character*, ior any 4ay tic tha Month > I i i tha aaura ITaa and *■*). *, OEaaaar Caaaat aha** ankh day* atntair laaua. 
and a "Kay MdpJ* Saarr'n la pro"ld*3 vhach can be oogiuc u> (ha mTaai ar t*iabar. 

fatt OMTE-CMWSC CMJ9HU (isach Tapa I'll* wtU Joifl Up W> 4H laaul 516 ,95 

am r*n.-p-fnsi ijlhw [4.m Nan ic jo^nieii par otak} i».« 



."-■i 

?!•-! 



4tha Mrnay Hindi? 

Praqraa that will haln yog deal with aa aa TBaa prablaaa raquirum) intaraat oalcuLatkna . 
Currant anww) fie 14 and Hate of Met urn to aatuaityv Lcaa Kaoataaant Pain 1 1 a al mi I 

hi : ::i ::■ 



CITW rdLVa WmSWI HE - BfmGH) taSlC W/' McTI. LUVJ, asulinaa. Ullowa a aau of Ht Oui. «r«£ |4 Ptalria par RatKWAl, and 
l>»tTn"r n*09r4 CK1 be Unkad to tint fixit; a ihar. rlaU aaaaa, -^p tn y$ Oaurc. par Plaid. rDWrfta tn-Juaalt aflitflt tar 
input and update, flaxiiiU cutput capability* Incluauvj output to DLaa. FUaa fcf «a* by aehar noam . chanoa rlla 
Dvflnaidon without ra-anwnnn the Ciu, afatt rile*, etc . AUtaaa Hjitlpia Haul sorta, aalact on any l AaUUf an or Plaldk 
*te, Kn artcara-y PEMCIUFIIL V0OL| inatr-JrtLnn* provjd* *Ra*Dl44 C* HaLUnt Llala and a Financial Btoca. Profit and Loan 

Tn*t*n? arrt»r- nam- s-a.n 



aim COJMM aTRKT - DESK BTOHE M8K ar/ MKh. LBTq, IbuUjia*. n "TTauttUiCnal" Meeuntlnq ladUKBr ft* aUI kaUaaaa., 
Cluba, Oiurthaa, Pkraonal Lam, atrr. Up to fair la—la or aubtotaSa «t>. TrlaJ B*1«K4. AHOn* Kalanaiit. and Balance: Sheet 
Report*. HZ oUowa up no MB account* and * Trial Balance of £9.999.499.99. Ttanaart^xra cay b> ^ tj-. u SLnaa i.-tkj, jn-i 
coaawita aers erpCanatLaiu say ba fraaly ue*4. Acoounta an traceatole to tha) Journal txaniecticin. ahleh aany Irtduda 
-terean repxta aaina raviaw Ot pa*t rjaraW?UCTUl md QaTTint TxlanSM . Ham $44.9*. 



— A fuU, acraan orwnvart, BCac I Ml ■— ■ 

wmosaAiai 2.» — i» runa on tha Data-ciap and rre. Cokm- PLH Sjfataaw uh-i the 51 r 2* QLapiay Scraanar . FuU acraan 
nleplay ani eiitiAf (i.e, . waat you aaa La wh at jou j«) r eoajnru tie aiay wheal prcajta-tnciol printer*. 

SPnOaL lidLa flMI STTU: !:«..■": HaT and OB-a tynrfj J?-fl.W.. natnjei iTnT.I ^1tf;.laT< 



Fa«T ItTLUK- 
tlaai *W awrlor 



— a l l n - a ibiec^ly rhanqmg th* Taat File, addlnf wca-d* '-l., Ua Jlcti.-nary, atr. r^,« 

n*X OsAor rxra. as/* iaii.e* uatnas tin.* 



worria in taaa 



HML lawaa- — greatly extanda tha power and QexiUllty Of 3TrtiSJ*l«. hlOfia* MjltipU Taat fliaa to be prlnbad aitaaa 

larna docuaaftt. Provide* (or a»Tn u-q intonHtion Into tha Teat Kila d^rino prLnt:™ (agcli a* "Jiffftrent rtaaea and 
a), atr. 



Report a Fonut CBpatdiali 
rum irj Cbaor KJDI I?<c' . «> 



Ipataa — *ui >!E*iSIC-oee»"l. "aru fi-lvert, 9PB with "auiit-Dn* nufdt Tiaiu p, rtct.i n n ly Pnwarftil 
ra, atr. ->.i ■ Ttaai Prowaa uOrtS SAIL b*«*Bi tha "Hurt Horaa" of four SViftwar* Sratl* . 
Hurts 4JH.B" 

accte Faytaaa (. Oan ladaar — * mx a mraaw-ln a ^aokaa* rhai can h* ,*w} touetXar. or aa eeoarate pacJwa}**; 

providaa tha 3BS raqmrtd HBdtt Tracking. (XBASIC. D**ed an the 'Oafaorna luialneaa Prograae.") 
rt£T and CQlor TtXf SI«r!..W/PBO0 UnlfLK f J«.«/r*X 



1» OaCtPOBdr «aaad anaat tot taK tinputar ayataa*. An axtnaaaly RarT-SP.i i a aH aal TOOL, thi* Praara. «il 
fUld of. uniiiu'.ail r.jnfiier af "ran-hu*in*a*" apnluTCKra, alao '.Bar atBapl*. I haw >Jlt OnlJhad BBttfcn; up ■ »ull Junior 
Cotjao* Daartronact CumcuJ.ua ualng IT«a*arTll f*l , advanced Eaatuiea Utm "ThoU Lookup* aaka Enroaa TB* urt *n*ft Colum or 
Row SonLinj tor nuneroue jppiicBLLCri*: *lc. empiateiy laiiay laa-.wnf , leadline Language, thia Prngraai n naTT- nwTaaaaTI 
ifTMUui'' KLC: Taut Ilia output Cor una with DAEIE, abrd Praam— era, paasa], "S"\ «c- 

rLB BV aTnTt-Shl ODaOT TLB. IBEKh FM. kill Lmta-Oapl SMB.«f QalRB 5ir,.a» 

anOiii*] lai tf aa j * UBt uaat »aa*a) t a f. nanaa 
Maatchaatac A^aUiaJ Buaineaa »/Bt*na E*Bi nata lenawnrff Ba'a*. FtjeeiDly on* or th* „, powarfijl LTrlTf O-aiiBhLt, thi* 

aachLrui l»r»guflq« progrHT i* an&ll enowjti to oprrat* on t auajLa aidad r dUt, wrt orowidae the ajsead of w.l.. and: pcaaar 
J ualted only by Th* JBar'i inuigkiimt ton . Su|°pOTtl Sequffitlal, Miararchul, va) FnndoT .kceia* File dLfuc-tucaa, and haa 
vi nual naanty «apaDUltle« Cor U«>** wlant nu tuaea laar-u-uaa [ngUah lir«ji*>wj ijoaaVD Structiz*. 

«r*B — ILBC and ttte HJK 117*. H XDC ♦ — PUS and Color PUB WaJ-af 

uanraaaai, rjaaa, ■BBOJOI BR. — Hot*, HLL anXuiting and OH Prnga. aaaBbr* FLBt and XAW3C 
TTaa* are Tin* Taatad prograna trot «n cCd. Mubllahai, aaAwara hDwaai tbr Odor IUZ patent 
nart 1 - i*9.9E- aria r— . i *j j i L j, ' rvt 2 - H9-?5 
atnqla Bntrr Cbai Ladka*- - *«,*5 nfclan-»1 BaOLiof Bj II I all - W. »J 



"Jl'.ei*jr*t*a arftvaxa far fisinr PLaTK 

A/C t99.t4 



A/- PW-95 uaa Udo-r ?199.iB IP-entQty a H99B 



Payroll J«.V: 



PUT* and CbbJubi — Bletai Ratnur** lajyill \rztx] at baalc l'kiJ-j:<' 

aVf - r-K S»j 'jniRJDt $1« A/l - TTLK SfK UBlfUK HTri 

">■■ ladaar - nzx ttt OniPLBC SJ95 I n a wl ory 2 - rucx frr-. UnlPlSt S395 

^yroli - FLEX SI95 UftifLOt *]« « - TUX SJ5B IhiTlEIC «•* 

Plata* (parity i or B inch die* Mhen ortavln; ill amftwarel 



Rat* Cfar-Jir 

MlLUSS U_T 
rjNBBTIOJBr/HaF 



Crnputar Syataea Ckauultant* IUX k-*JuHC ftaorana 

IUTX v>] Cnlor fUR $».** OBifTLB t75-B" 

iutx *ni cbiuT rut uoa.M chin*--; sim.M 

PTuK and Goeur rlaTi ?*«.* IAtATUK SIW."aJ 

fUTc arrii Dolor PUB! ;:.*■. OH UBiTUBC tnm.OB 



ai*HU.<K) — Oopy UHaT Dirtui to aewral aBalaar 4kMa ■— 

**hr Collowuvj FlEX Utilitlee AUo. th* "ua.-t.up o( AIT ■!*■ due: tn vw 9*L^fl *Lat iL*k*tt*a CHlmiaata: tu »a or ■/*, FT 
to 5'*, etc.K By elapLy inaartingj dtfkattBB a> requeared by artlaaW, a Large rta*t ayar** eay b» .•owaloBdad to jour 
praaant flippy dlik •ya.r.en, any elm , » i**a to flaai* with duartory cMeuriv or Boy of the other badloui opat«Uon* 

rhat nuet be dona uainq tn* imal 1 1 qy routina*. 

onrnKrr-T.aan uvSaratanrl* romBl "copy" aw-fiai and alway* kaapa up with -lUa aSnwaty oojilad fey laul-iiainiraj d&rectoria* Bar 
both hcurt in] receiving dish ay*i*n, •liai-ria'irjj hour* or CediouB keyboard antxiaa end other taaa nrn*irr|nj rdianup 



apaciai pograa thai dranloaoa "rwnlcpi" ryp» Olae, any *i*e. 

prcoraa to reetrurtur* xrran -rindorT Olee tor COpyina, at noupyina bank to Qw, tot- mt.*. , 

"h-aiiw." .nliitv thai "CriinkV tha nraa chain ni ftoopy or hard ifaak ■hereby *Lunnating fi i j ml 

<U*e lorJwaar]. ' HLL 4 rrruriaa t«.M JET 1 or y| 



BhflDM • 



nasjtxe* TU9C a.-.; rrr.iFiA'fn Oa Jbbjf Twpi TanaaDBl 
Paaturaai 

*?e diauley uSafJa. "thanga akill level. *Rwap aaa*. *Polna Brnnjq ayataa. 

*rour i»w»la o{ play. *Satm rJaKkaate proouaae ui 1-2-1-4 aovae . 

■J hi* •<*■< and »«p aide*. *r;iBy whit* or Uaak. 

Tru* i* one of th* ejt ro a f aat C1IE5S utogtara iuminq un any aaersaaaputar, aatuatad U» laKahf ieaaV (better Chan aoet 

'club* pLaytr* at h£ghar lawala). 

Rat and oolox nn jn.'H 

UXF^nar: RVBoaataC 

DTBT-atnC pt>r*4a4>L*r I* an WSC ptogran that plena a duat in bacna of *lthar oalorvaa. ajyj pirctrrUp)*; Ca" uulaiiyaxataB, 
pratem* and fata Ic - ni!l -m- qrawt. -r fiu-tnriyrlrara . Prnram .r.1 Fat f»l ^..u'-wjrj™ of adi ^d tha an baakc anal grogaa 
(wgetabl*. bread, n*»t . Iklia rdlk. fruit and Bit.) (br a epeeifle Lndiv'ra* 1 . 

See, fcqa. Daaght, Preaant ueiant, ream Sim. fcrtivily Laval and Baaal M*tatjoLLc Bat* ftgr noraal indMdual ar* takan Lnto 
acosunti Meal waiqrv. and B<jaL*iniro calarjaa far any weight of th* abca* lreflvldutl in calcnlnatt. ahan ■ wawaht gnal U 
gkvea faithet gein or loaej, ard a rn.r-:r- pun lb agraad upon b etween the rrwraiter and the InHvLjuaL tf«> r fMnc C< 'days 
to reach tha weight goal i* projected . flat etaf ting and sating rat* of watotr Lgaa 1* oatculatad, and B dally oalwilax 
with MCtt ft/ft waijfK fair 1 KV-day paciod is printad. 

FtB - £39 .« tntfUBt - Hft'H 



' HsBubbi for the larlnea ^eratinq 9/*t*a 

Allow* tauBUBT Baaed Byat*aa> tO lT*n«*ll «nl fMltAV fila. ta and fror oKnar Ooaputajr JynvaB 14* rtxla*- 'J** with CF,. 1 *, 
rlain inn Other IclfUSt syatarai, ate. 

— vkrlfla* Tra -wal ai-.-r . uitegrity wing chldUM* oe CK 

— Aurnnaiirf'liy *j-Tr>r»»ite ood tlot*» 

— TrananUU dau In L2S tyt* Lfiaekia 

BHafff 



nlak niaa anr 



1* 11 11 alauth — PowarfuJ, IHTOMCTTVC. Dlaeeeeatilar : prcvadee nat,'*aCn 
• aay bMfJVkJ VSaaaRi *raa IaiiSnition*., k-BBJ Otnarttor of »*•<*■ rjrjoei enknoa 
68faVl/yiW*/» and f*JJ CoJa. 

ccaVar njar my. nmy ?«.*«, w l . < *ourn t ?99-B", 



IUK F?9 «! uoUUK "UB.aVi taVt RJI.Bl 



— An "eaey to uaa" Baan> Diaaaaaaialar Bor uae w.. 1 nude niea. 4wO alao 

-Control FUt" if Are* IiafinlUona durLraj »ijcc***Li- .TUBiawtiLleB: X-DBf Sun film- r-»i*ne 
Mnear etc. LafaaJl rtla* provided dor HVd.-ITBC FLBCJ, FUSS, Color Coapjtar RJ3C. 
SLBB.BB 0B-9 RH.BJ 



bdM ani). Oavalop a 
rani laoatlona with label 

r*m*j*" gpjprfiam 




Baw*r — WaiomeUa*, iBIIIBalu Baa— aaaaaaac and laokiaaj Loaaar Bar tha UaTf. >aa* aiuw atjwaaunl I 
B aa wJal Ed Smith roftakt . Support* aar-uradva Hacrra, ftnUtirol Aaaaatdw, etc- Opt, %-tmt Uetuwp mcliWJ** a BaaU liim- 
orlented sdicor *■ part of th* hteaablar- (Meetly iMprcved aparating -an-al fuB and Ckeor PUB aeaT* paaac v/Unk 

Bed BUtor JIM.W tf/SOUTC*. Add ISA. SB 

n — ii atlfr labcataUa k ll and Laakdiai Laadar — ?-pa*« ».:. . kaahr j „ „ Link . Load . Slaajaart* a Char. LabaLa, 
ayaraa (kill 19*41/ kj FtS. i). Qtpraaauaia with fcrith., rrn-lr, and Bhifk*, ate. 

tRAUJ. U and caeor ma toiS.iB :=ra >-ar haunt. s>*.bb| 



TTOttl QrOB aaaa 

Enter, Edit, and aaaaaaa* B raatB aB -with 

NCtBii/ j : j. tnl Hitechi htjbjbi 
PUS. *.-.! Orjiar run - ■w.ae 



-arao iiJiLBia.. * coatuned Mitor.' « aaBi l wW- 'Seaiigned w alLow th* rrooiaaaaT ui 
a a faaaa a of arrort. wyo Leeinng ck* rrograa. aHhck LB a onei JaaaakaaT Ac Us* 
rCHOE t»»| J with th* BIB* functus-,* »nd faaturaa aa HACI. 



A "-*—— ■uaak.-'" Da-CoapLwar 

DUe — R*'CrMt* 4 SOjnre Uatlrq frai DnlPUX rraralel HuTTr Prnji — . bay to IkHr UDBlut ■/ MX. ' ki*u of UhilUM 
beaicj output to Otak or TBr*. Tine llUtaU arid PBAVaV axiLt iraJPUB %i\<\.-f, 



uaanuaei — 
pl/9 — (by Onihe*, Trott) h* 

pravida* a totally IBfaWCRMX Progea 

TypaB, PrjIJlter*, Control fitna^ur**. Such, *- ,*-, ana u-naaj •■ ■ BBnJTIUl . -.- , ,vi — . . 3 - , 

pcwvH** BUkJiB atepplnn, la^akpoLrrting, •«■ An BbobUbA Softw* OMlrpaant Ibol b utillxlng th* power of the UR.' 

., , | ._,-. .. "-* •"! Oara-fOn; - JIW-BB 

. .i - - z kjptb c OoanUer Bar the PIJP! cpe/iUng Byetam. kkwd* the TBC 



VMaiwai 

fWTanT- h "BtT'jL-turad' Aaaanbly Lanjuaoa aairxrygwa^iBr.'iatiujgBt, all Li 
ogre* Cavelnpnent Cycle. -Sh. CbapUar eupport* lerga 9rnfcol ■**•**, '-firtaul* 
• ,B-, ana p-a*gLir.«r ra m'n-- a t irr,, *r.c, Tha Ban* r*Tja-«*d. TT ar* ''Catuajar 



* — 4By J»P** NcCoahJ (Kb 
Ralaoating A*aait)L*r, 'Linkdraj leader for una "full hlown" gya-«s nuAaqaa. 



ntral tdBTf *r- vaaTtXcr,- g«n*Ta.t*i vary afAcLant gbjact cod». Output "iwir<TiiBrt*" doa* b} lahrU. iakm Ln B Ht 
OparationB; 1.5 uan faatar then MUHUN when u.lng a 2HH. im Syttai [a*, p 43, T>B" -jcra ^ JJT ia; r*v '911 
rlneta *#i*. area- ■ * **■ araa i^a/a eeae aa njww 1433. BV - ^^ p ^* OJJI 



Floete. *te. 



nJBC, color flaK OS/* U75.1B Okkruac 



TBC faflOt, — a*uv* Code QjanUajr f.XSO l"H !■■» ■!] 



fUK end aokar puk $haj,g* 



Luridat* |*«r»L - r-Ccd* rja-ptler ttm frtandardl - QBtddYiad aepaetally Bar Wcrwi*w.*x ht., Huo-u** dweem check* 
av»Q*o.* r**Ojrc-*a fee a*.ch r**i, Bliowmg <iper*Uon on *wan rdnoaa.-. n7pjr.tr tyatana. Ulowa llrtoae to leaBaaaaT ->rt. 
far aktinn Karlbsij'ry. 



IUK ani Color PUK V C9 



runt a* tmm 



■^awaga,anft WkflCJiL — rot th* 



ISO aaaaaj KBtlva Cod* CovpU.tr ■ Far Paal-TLna and PrikC***> Control 
apjiicat-iOi.*, Lea c-jatrii I/O davica* In place of tha Paacal WrVT and OLrfP-ir- Long Bit. (J? BU)r Dyneruc lancrth atrinoai 
interrupt ?fiX-c*aamD, Umbl*. BE, hk-SALfKit ada, ate. P!TJW?i I JzicLaiaa S^irra rhr -he £M*oii2 at'iunat aatttjea, 
«nd tMtai VllUUaa. Naqulraa e -Mcrtoroii OOBpitLblB- ABli-i-Btlrn AaaaTtilar Blkl IjAHlna Luadar . 

I*e»i HaT and oaaor Pin MH.H lone wear leuht - £1B») 



areuai -ucnputax pUH^orau-y- gun jjBj,ajaj worda! 

MO too -Let you r fl »q*r* do th* vellunq throujh tha Dictionary" drill* you are Inpwltioij -not with your awrlte Editor or 
-j:-j .1 ._*aarr . PPBJ* Lt *BT* OeV "IncMhar Sbaliing Chacfcar'r tt tilcw*. jou to leak ^> a word rron wtthui your BdlWMT or 
*?rd rTOCBBBOC afi ttat yau IubW tt IB riflht WHO* YOU TJTr. CT llf wtfc th» b¥B,OC Utiliey f>rhlc* operate* la the TIB. 
Ltiaty soaoe.i. y**, it MM sllowB you to check and update the Teat aftar you are Bniahadi *i»-o wi* iliowlni yau w nOB 
k"QRW to the uictlonary, "J'l*g' 4 que at tenable word* In tha T»rt for aveluation Later, View a. wcrdi bi eantaat" neftx* 
CBBftfina; ar ignoring, etc *VaU* fir*l Check* ■ Tdcnaaan hard airUonajy", then th* nflcoki a.ctlon**y, than « Teraonal 
hord Uat", er f ] tan, Lly. »rr, -Special itard liat" you ray t«* ar*,:Ln*>l Hlj *lao alL.-aa the iu* of BBBll Oam imi_ 
ewata**. 

fu* arid color puk n.'q.q;. 

_ JEBTt * Twrt F-rmr rer 

JTTPT, a Te^t Fcmatter deMiupai i^ Ror. *ridar*on, provid** reamroua Baatji** which nik* rt a valuable — m»i>w . (c ,-y njx 
Uaeri Softwar* UBrairyi uTaTT la d*.aign*3 tor fDiUBttioj T«kt artput ijr |» hatrlx rTdlrUn aiid la-inilaa many unlaiua 
feeturear ' ^ r ^ 

'Output tha TtjcwattoT Tut to th* ctaplay fiar Banmt araLyele and ehanga. 
-Output th* -PonaatTed" T*it to t Ttait nia Bar oa* a*.Ui tha ewpplied ITienrT.cai) fear prodLaarv aajltuu* .Twit* .tf th* T*at 

•ar. t>» PriiU*r ZHLtiniW IH)Ca*Ti PSSfTE* JWwTi fi>i* Ltulty ia vary useful at oaJw tine* alio, aad worth tha pric* 

it '.h* projoran by st atlfj . 
-The**: ooafiauraba*- to* •daptlng to other irkatar* foaraa aet up for lj_?*on hX-dfl with c*ailr*a)| ppavide* fer up ro tan 

(Ml lenfM e d "hTantac Cuntrol Canaand* - , aurh at Italic* on oral nH, Ixililakoa on and off, MO. 
-lUlOBltii aanpanaatian ftv • TlctllU kadth' printed line, 
-tnniod** the nocraU tlaiB width, nergln, InrJant, parogropri. tpaoa, vaTtical akip lin«, DM* lajnth. oaoa nararun. 

cantering. Oil, juet-iftrattjn, etc. 
-use wiui JaBT Oaitor. 

•aupplled wirh "Structured Source- Ikandruah PV9)t +**> to aaj "Jar flow of th* progran. 

run and Ckaor PUB fil.T, 



Btar-Klr. eaoiUwit 



BPBTWJI 8PSIAI, oT*£LALJ| 
••'■ "" DictionBay ir.1 kagTE "* BTBU. Ward Loot Up Front** TJ1 gar rTW*iZ:: 

rust and oaaar nJBC syataw k*b Bar OK.T (LSd.a* 

"hen theee are gontr the price go* a UV'U l*Vr LVll nRPEP NCkn I 



Aleo, call for "not* Enfb* on both tfc* riJEX Baaad and Color Craaputer bat*-d snuk-BioB Ftraductaj wvludlng th* HJoBtc 
PkndLor, cheek "B Taut prograre, ftoviTrsin color 'i^aputar nrt*rn*j. tttbimi proguren, etc;. 



;i .-! j.t- 



rat* lmUTTJaa — B*autr** UlODfin BbbtoI ear i. 

Craai Rararan.-* UlP--Li>J of any teal? Qfiantad si rktaoal SOUTC*. 

th* Inrll BklBi Of Other Filae in a Bourse Testi net uklialtad neetang capatiUitiet- KiO Bliowa BuwUV Hie 
inrluaionp. 

PBOTILM — ltolj:t« an 3nd*nt*d, Huebeferi. ■StTuCtograra' of a Paaral Source Tekl rile, kllowa v.ewanq th* onrnaU 
at lerga prngraaai, »rrf pro-i.J*a cluea aa tn Th* Lrrtojrity of th* program. Supplied at SOUTC* Code; reouiree 



~i~T-'- '-' !:"!. ■ 



PUK -tifj Oakar TUB — Each prnortri £«■« 



<WVTAT — {rBBcal MS* reuuirad) AUowa reading TSC Punl-fliot, Hsn ncsftii, *nd uwital Braaarcr'. CF.'M utBka while uparating 

under FL*X i,o, ruse t,o, or nn: 9.0 such td«9 or 688s t^m*. mprcA-r wm rat perftr,, NLr*.-J.., but. lariwaan the 
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You have probably noticed that the 
seme list of strings found in the Entry 
Routine is used in the SCAN Routine, 
but In a little different order, and at 
tab(28) there is the same nmfcer that 
was generated for each entry by the 
N-W+l in 2170. By using this nuifcer, 
you can edit entries from outside the 
program. This may seem inconvenient, 
at first, but it saves considerable 
memory and works quite well. 

To Edit, you must first have the 
entry number. Use SCAN to find the 
bad entry, and write down the number 
to its right » Have the correct entry 
ready. Press <BREAK>. Now, if, for 
example, the check number should have 
been 1555 and the entry number was 
123, type in NU$(123)="1555" and press 
<ENFER>. Or, if the amount should have 
been $234*00 and the entry number was 
112 then type AM(112)=234.00 and press 
<ENTER>. Each string in Line 6500 can 
be used in this way. 

The timing loops can be changed to 
suit your preference. I made them 
faster after I had used the program 
for a while. By increasing the number, 
you increase the pause between prints. 
If you change them, remember to put 
the highest number with the line for 
the slowest timing. 

0SDI3 IS PROGRAM 

One of the many reasons I had for 
doing my own program was that the 
inexpensive Bookkeeping Programs I had 

seen had no feature for job 
information, other than to make up a 
whole account for each job. If you 
have a lot of small jobs, this can be a 
pain. Not only does it waste memory, 
but it doesn't link with general 
categories well. ftnounts are entered 

either to this account or that 
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GRAND SLAM BRIDGE 
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SHARPEN UP YOUR BRIDGE GAME, COM- 
PUTER BIOS YOUR PARTNERS HAND 
AND PLAYS THE OPPONENT S HANDS 
RANDOM HANDS DEALT EACH TIME. 
CARDS, TRICKS, BIDS, AND CONTRACT 
SHOWN ON SCREEN. 



32K 



CASSETTE $19.95 
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STOCK OPTION STRATEGIES & 



DEVISE YOUR OWN STOCK OPTION 
STRATEGIES. COVERED OPTIONS, 
STRADDLES, CALLS, AND PUTS. % 
GAINS AND LOSSES VS. FUTURE STOCK 
PRICES GRAPHED IN COLOR. EASY TO 
USE, NO DATA BASE REQUIRED. JUST 
ENTER FROM KEYBOARD. MENU 
DRIVEN. 



16K 



CASSETTE $14.95 



SEND CHECK OR MONEY ORDER TO: 

GREENTREE S0F1WRE 

P.O. BOX 97 
GREENWOOD, IN 46142 
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account, but not to both. 

The way KICROBOGKS is written, jou 
can put information fctm ANY entry into 
at least two categories * And JOB 
could be changed to ITEM for more 
general applications. You can get 
figures from the same entry, even from 
the same amounts* for separate 
categories. For example, I can call 
for a total spent for materials, or for 
a total spent on one job. Even though 
the amounts are mixed, I can get both 
sets of information by using both 
descriptors. 

Lets get a little more specific, fty 
expenses include materials, labor, 
truck, tools, office, personal, 
charitable contributions, and taxes and 
licensing. Rather than use numbers 
which I find hard to remember, I use 
three letter abbreviations x MAT, LAB, 
TRU, TOO, OFF, DBA (for draw), 00N and 
TAX* Job numbers start with J (J147 
etc*) if it is an expense. I us© an M 
prefix (for "M"oney in the bank) if it 
is income. (This actually makes 
another category of information to draw 
from.) You could have as many 
categories as you have entries if that 
is what you need.) 

You have probably noticed that 
Listing 1 has Income Entry routines, 
but Listing 2 does not. This is 
another way to save memory. By using 
an "Account Descriptor* to distinguish 
between Income and Expense, the same 
routine can be used for both tasks. 

Most of my data is Expense since a 
large deposit usually covers many small 
expenses, if your operation is sales 
oriented, you might have more income 
entries. JOB# could be changed to 
SALE* . To keep track of certain of my 
personal expenditures, which come from 
the "draw" account, I use fictitious 
job numbers so I can locate these non 
business items. 

mCBOBOOKS is user friendly in the 
sense that once you Xnow vftiat /au are 
going to do, you can do it easily and 
quickly * I'm sure that someone 
knowledgable in setting t$> books could 
get more out of it than I can. It is 
somewhat similar to a Single Entry 
Ledger, with the account descriptors 
paralleling columns headings and the 
payee descriptor paralleling line 
headings. With these, and the added 
JOB parameter, you can develop 
considerable utility, but it does take 
imagination. 

If the program is still too big to 
suit you, you can take out some more 
fat by altering some of the screen 
prompts, combining a few more lines, 
etc. Combining lines is a tedious 
process, but will remove a surprising 
amount from the size (it is a good idea 
to only compress CNE LINE at the time, 
then RUN the Program to see if you 
introduced any problems). I have 
reduced it to below 1700 bytes by 
continuing to work on it in these ways, 
and would be glad to hear from anyone 
who has made it smaller yet. 

It was a little surprising to learn 
that renumbering it to 1 per line 
actually removes over 100 bytes. This 
is of little significance if you have 
32K, but that 100 bytes equals 4 to 6 
entries, which could make a difference 
in small memory. Use RE«M,(dld first 
line nwtoer),l. 

I have put Listing 2 plus a UK 
version plus a 3.2K version with edit, 
tape merge, and a number of other 
bells, whistles and conveniences on a 



cassette. If you would like to have 
this, plus a fairly detailed 
documentation, send $10.00 to the 
author, c/o this Jtegazine. 

Jim Lalone 

LISTING 1 

1 GLEAR4000' POBOQKS 28 4369 

S DIMNU$(200),DA$(200),PA$(200L 

AM( 200), 009(200), AC? (200) 

10 N=l 

1000 ' MENU 

• 101& CLS: PRINT: PRINT 

1020 PRINT SELECT ONE" 

: PRINT! PRINT 

1030 PRINT" <1> ENTER EXPE 

NSES* 

1040 PRINT* <2> ENTER INCO 

ME" 

1050 PRINT" <3> MONTH TQTA 

LS" 

1060 PRINT" <4> YEAR TOTAL 

S* 

1070 PRINT" <5> VIEW FILES 

ii 

1060 PRINTiINPUT" ENTER YU3 

R SELECTION*;? 

1090 IFF<0ORF>5GOTO1000 

1100 ON F GOTO 2000, 3000,4000, 50 

00,6000 

2000 ■ 

2010 ' ENTER EXPENSES 

2020 ■ 

2030 ' SUB MENU 

2040 ' 

2050 CLSt PRINT: PRINT" 

CHOOSE ONE* 1 

2060 PRINTiPREJTsPRINriFRINr" 

<1> NEW FILES" 
2070 PRINT; PRINT' <2> EXT 

END FILES" 

2080 PRINT i PRINTS PRINT* PRINT ilNP 
UT" YOUR SELECTION" ;A$ 

2090 IFA$* M 1"THEN2195 
2100 IFft$=*2"THEN2500 
2110 IFA$<0ORA$>2THEN2050 
2170 ' 

2180 ' ENTER EXPENSES 

2190 ' 
2195 N-l 

2200 CLS: PRINT" INRJT EXPENSES-P 
RESS <XX> FOR NUMBER? WHEN FI 
WISHED" 
2210 PRINT" last entry vasf M NU$( 

N-i) 

2220 INPUT NUMBER" j NU${N) 
2230 IFTKJ$(N)-*XX"THEH2320 
2240 INPUT" DATE"; DA? (N) 
2250 INPUT" PAYEE" ?PA${N) 
2260 INPUT" AMOUNT ;AM(N) 
2270 INPUT JOB #*;J0$(N) 
2280 INPUT AO00UNT;AC?(N) 
2290 INEVT IS THIS CORRECT? <Y> 
OR W?A$ 
2300 IFA$* H N"THEN2220 
2310 N-N+l tGOTO2200 
2320 PRINT LOAD AND REWIND TAPE 
■ 

2330 PRINT PRESS RECORD* 

2340 INPUT PRESS <ENTER> TO CON 

TINUE"fR$ 

2350 0PEN"0",#-1* "EXPENSE" 

2360 PRINT#-1,N 

2370 F0RJ=1TCN 

2380 PRINT*-l,NU$(j),DA$(J),Pfc$( 

j),amCj),jo$(j),ac$(j) 

2390 nextj:cl06e#~1 

2400 cls;print?233,"data is stqr 

ED" i FDRT-1TO1000 sNEtfTT 

2410 GOTO1000 

2500 ' 

2510 " EXTEND EXPENSE FILES 

2520 * 

2530 CLS; PRINT TO EXTEND EXP 

ENSE FILES" 
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2540 PRIWTtPRDfTtPRINr" I£ftD GA 
SSETTE OCOTAINING CUR RQIT FI 
LES QJTERED TO EftTE" 
2550 PRINT: PRINT? PRINT" REWIN 

D TAPE-PRESS PIAST 

2560 PRiMTiPRiMriiraur" press 

<ENTER> WHEN REAEY";R$ 

2570 ' 

2580 ' LCftDING 

2590 ■ 

2600 CL£;PRIl!ir@234/ , lXADIl!lG DATA 

H 

2610 aPDTl^t-l, "EXPENSE" 

2620 INPUT#-l f NjF(mj-lTC« 

2630 INP17T#-1,NU$€J},DA$(J},PA$( 

J),AM(j),JO$(J),K3(J) 

2640 MEXTJsCLQSE#-l 

2650 CLSjPRIOT^233, m DATA IS WKD 

ED" 

2660 FOR^=lTOl000:KE>Crr 

2670 GOTO2200 

3000 ' 

3010 ' ENTER IWXME 

3020 ' 

3030 ' SUB MENU 

3040 ' 

3050 CLSi PRINTs PRINT" 

OKOSE ONE" 

3060 pRmripRiwrfPRitirsPRitir 

<l> NEW FILES" 
3070 PRIMTsPRIWr" <2> EXT 

END FILES* 

3080 PRINT:FRINFsPRIOT! PRINT* IlO> 
UT" TOUR SELECTION* ;S$ 

3090 IFSS=*1*THEN3195 
3100 IFS$- W 2 , 'THEK3500 
3110 IFS$<0ORS|>2THEN3050 
3170 ' 

3180 ' ENTER INOC*E 

3190 ' 
3195 N=l 

3200 CLSsPRINr" iNTtfT IHDCME-PEE 
SS <XX> FOR NUMBER? WHEN FI 

WISHED* 

3210 PRINT" last entry wast"NU$( 
N-l) 

3220 INPUT" NUMBER" ?NU$(N) 
3230 iraU$(N)="XX ,, THEN3320 
3240 INPUT" DATE*? DA? (N) 
3250 INPUT" PAyER"?PA$(N) 
3260 rNPUT" AMOUNT" xAM(N) 
3270 INPUT" JOB #" ? JD$(N) 
3290 INPUT" A3000NT"jAC$£N) 
3290 INPUT" IS THIS CORRECT? <Y> 

OR <N>"?A$ 
3300 IFA$="N"THEN3220 
3310 N-N+lsQOTO3200 
3320 PRINT" LOAD AND REWIND TAPE 

H 

3330 PRINT" PRESS RECORD" 

3340 INPUT* PRESS <ENTER> TO CON 

T INUE" * RS 

3350 OFEN"Q",#-l, "INCOME" 

3360 PRINT#-1,N 

3370 FORJ=slTON 

3380 PRINT#-l i 63U$(J) i DA$(j) f PAS( 

J>,AM(j),JO$(j),AC$(J) 

3390 NEXTJsCUOSE#-l 

3400 CLS;PRINT@233,"DATA IS STOR 

BCf s TORT=1TO1000 ;NEXTT 

3410 QOTTO1000 

3500 ' 

3510 ' EXTEND INOCME FILES 

3520 ' 

3530 CLS tPRINT" TO EXTEND INC 

QME FILES" 

3540 PRINTS PRINTs PRINT" LOAD CA 

SSETTE CONTAINING CUR RENT FI 

LES ENTERED TO DATE" 

3550 PRINT: PRINT sPRINT" REWIN 

D TAPE-PRESS PIAY* 

3560 PRINT s PRINT: INPUT* PRESS 

<£NTER> WHEN READY"yR$ 

3570 ' 

3580 * LCADING 

3590 ' 

3600 CX£?PRINTe234 r ' 'LOADING DATA 

■ 

3610 OPEbT'I'M-l/'INOCME" 
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3620 lNPtTO-l,NiFORJ=lTON 

3630 INPUT#-1 # NU?(J) # DA${J),PA$( 

JhAM(j> # JO$(J),AC?(J) 

3640 NDCTJ:CIJDSE#-1 

3650 CLSs PRINT? 233, "DATA IS LOAD 

ED" 

3660 FOKIV1TO1000SNEXTT 

3670 GOTO3200 

4000 ■ H3ITH TOTALS 

4100 CLS5Ta0sPR]OT! INPUT* NAME 

ACCOUNT TO BE TOTALS "tB$ 

4110 CIS sPRINT sPRINT; PRINTs PRINT 

1 REWIND TAPE-PRESS PLAY" 

4120 PRINTi PRINTs PRINTS INPUT" 

PRESS <ENTER> WHEN READY" j R$ 
4130 OSsPRINT§236,"SCAtMING" 
4140 OPEN*'!",*-!, "EXPENSE" 
4150 INPUTi-l^NtPORJ-lTON 
4155 INPtrr#-l,NU$(j),DA5(j),PA5( 
J>,AM(J) r JO?(J),AC$(J» 
4160 NEXTJsCmSE#-l 
4165 FORJ=lTCN 
4170 IF B$=&C?(J) THEN TWTfAM(j) 

ELSE IF B$=JO$(J) THEN T^T+AM(J 

) 

4175 NEXTJ 

4200 CLSs PRINTS PRINTsPRINr ,i T 

OTAL SPENT ON JOB# "B$," IS $ 

4210 PRINTi PRINTi PRINT; PRINT sPRI 

NTsPRINTs INPUT" PRESS <ENTER> 

FOR MENU"? R$ 

4220 CLSzGOTO1000 

5000 CLSsINPUT* NOT P 

ROGRAW1ED YET PRESS < 

ENTER> FOR MENU";R$*GOTO1000 

6000 ' INPUT DATA 

6010 OS; PRTNTs PRINT s PRINT* PRINT 

REWIND TAPE-PRESS PLAY" 
6020 PRINTS PRINT i PRINTi INPUT" 
PRESS <ENTER> WHEN READY*;R$ 
6030 CLS SPRINT^ 234, "LQADIN3 DATA 

n 

6040 OPEN" I* v t-l f "EXPENSE" 

6050 INPUTi-l # NsK)RJ«lTON 

6060 tNPUT#-l,NU$(j>,DA$(j>,PA5( 



J),«i(j),JO$(JhAC${J> 

6070 NEXTJsCL06E#-l 

6080 CLS: PRINTS PRINT* SCREENING 

SPEEDS-CHDOSE ONE" 
6090 PRINTS PRINTS PRINT? PRINT" 

<1> I£W SPEED" 
6095 PRINT; PRINT* <2> H 

IGH SPEED" 

6110 PRINTs PRINTS INPUT" 
YOUR SELECTION" :S 
6120 ON S OOTO6130 t 6190 
6130 CLSjFORJ=1TCN 
6140 PRINTi PRINT NU$(JbTAB(8)DA 
$ (J) ?TWB( 17>PA$< J) tPRINTflM( J) ;TA 
B{8>"JOB# M JO$(J)?TAB(17)AC$fj) 
6150 FORT=lTO300iNEXTT 
6160 NEXTJ 
6170 INPUT" PRESS <ENTER> FOR 

MENU"?R$ 
6180 GCTO1000 
6190 CLS:FORJ»1TON 
6200 PRINTs PRB*TOU$( J) ;TAB(8)DA$ 
{J)jTAB(17)PA$CJ)?PRINTflM(JhTAB 
(8) "JOB* "JO$CJ)jTAB(17}AC$(J) 
6210 FORT^lTO100sNEXTT 
6220 NEXTJ 

6230 INPUT" PRESS <ENTER> F 

OR MENU"?M$ 
6240 GOTO1000 



4 CIS 

5 PRINT" 
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7 FORT=lTO2000sNEXT 

10 CIZAR5000sDIMMJ$(230),DA$(230 

) # PA$(230),AM(230),JO${230),AC$( 

230):N«lsT-0 

1000 GOSUB6000sPRINT@136,*<l> LE 

DGER"sPRINT@168, ,, <2> TOTAIS" t PRI 

NTg200 ( H <3> SCAN FILES" s PRH?T£23 

2 # "<4> UNASSIO^ED' , ;PRINT9327 f isl 




XDMS- 

the time saver... 



If you'Te ready to really get fomi use out of your CoCo - Then it's 
time for XDMS! The XDMS Data Management System is designed to allow 
quick and easy file definition, update and proteasing - All without 
programming! It will handle anything from bowling scores to inventory 
and can produce reporter inquiry, forms, screen and file output* 

Multi-step processing is controlled by English-like statements* either 
interactively or from a filet (This is MUCH more flexible than menu 
driven systems*) Complex functional such as file merging * generation 
and summation of arrays, line calculations* subtotaling* selection* 
etc, are easily accomplished with "results oriented" instructions. 

Once installed* you will find XDMS applicable to a wide variety of 
uses* (You may even wonder why others bother with specific application 
programs when XDMS does it all') So put the joysticks aside r load in 
XDMS* and get some real use out of your CoCo - It's time has come.** 

XDMS Data Management System <5* or 8" disk) 4179.95 

XDMS+- Data Management System with DMS Utilities ****** t249.95 



WESTCHESTER Applied Businwsi 
Post Office Box 187* Briarcliff Manor* K,Y 
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411 software is written in macro/assembler and runs under 6809 FLEX. 
CoCo users will need F-MATES or FHL FLEX. &4JC RAM and 1-2 disk drives* 
Terms I Check* Money Order t Visa or Mastercharge. Shipment first Class. 
Add FfrH *2.50 <«7.30 Foreign). N.T, Res add sales tax. Specify 5 or a-. 
Sales! Southeast Media 800-339-6800 Consultation; 914-941-3932 eves. 

FLEX is • trtdeftarfc. of Technical Systwis Consultants , Inc. 
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COMPILER 

EVALUATION SERVICES 



The S . E . MEDIA Division of 
Computer Publishing Inc., is 
offering the following 

•SUBSCRIBER SERVICE*: 

COMPILE* CCMPARISIOK 
AND EVALUATION REPORT 

Due to the constant and rapid 
updating and enhancement otf 
numerous compilers, and the 
different utility, appeal, speed, 
level of communication , memory 
usage, etc., of different 
compilers, the following services 
are now being offered with 
periodic updates. 

This service, with updates, will 
allow you who are wary or 
confused by the various claims of 
compiler vendors, an opportunity 
to review comparisons, comments, 
benchmarks, etc., concerning the 
many different compilers on the 
market, for the 6809 micro* 
computer* thus the savings 
could far offset the small cost 
of this service. 

Many have purchased compilers 
and then discovered that the 
particular compiler purchased 
either is not the most efficient 
for their purposes or does not 
contain features necessary for 
their application. Thus the 
added expense of purchasing 
additional compiler (s) or not 
being able to fully utilize the 
advantages of high level language 
compilers becomes too expensive. 

The following COMPILERS are 
reviewed initially, more will be 
reviewed, compared and bench- 
marked as they become available 
to the author: 

PASCAL "b" GSPL WHIMISCAL PL/9 

Initial Subscription - $39.95 

(includes 1 year updates) 
Updates for 1 year - $14. 50 

S.E. MEDIA - CPI 

5900 Cassandra anith, POB 794 

Hixson, TO 37343 

615 842-4601 
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NPUT"YOUR SELECTION" i SsIFS<10RS> 
4THEN1000 

1010 ONS 0(7102000,3000,4000,5000 
2000 GOSUB6000:PRINT@168,"<1> NE 
W FII£S"tPRINP^232, M <2> EXTEND P 
ILES" : GOSUB6100: IFS$~"r'THEN2100 
2010 IFS$="2 H THEN2020ELSE2000 
2020 GQSUB6800sIFA$» , V'mEN2100 
2030 IFA$-"N*THEN2400ELSE2020 
2100 CLSsPRINT" INPUT ENTRIES - 
WHEN FINISHED REPLY <XX> TO <N 
UMBER?> M : IFS$="1 "THEN2105ELSE? PR 
INT" last entriest "NU?(N-2) H & 
"NU$(N-i}!GOTO2ll0 
2105 S$*""*PRINT 

2110 INPUT" NUMBER" ?NU$(N) tIFNU$ 
(N)=*XX M THEN2180 

2120 INPUT" DfcTE"yD&$(N):IFDA$(N 
)-*GC"1HQJ2110 

2130 INPUT" PAYEE/BR m ?PA$(N)jIFP 
A$ (N) =»"0C"THEN21 10 
2140 INPUT" AMCUNT";AM(»)t INPUT" 
J0B#*rJO$(N)r INPUT" ACC0UNT"?AC 
${N):INPUT* IS THIS CORRECT? <Y/ 
N>"; A?t IEA$» ia N"T«D92110 
2170 N-4M:GCFPO2100 
2180 CLSsPRINT@l29, fiINPUT"HCW M 
ANY SAVES" jSAsIFSAf^THEN1000ELSE 
PRIN]£225, "LOAD AND RJ3*IND TAPE" 
sPRIST@289, "PRESS RECORD" t PRINT r 
INPUT" PRESS <ENTER> TO CONTINUE 

*m 

2300 Cl£jFORV^lTOSA:PRINT@233 r "S 
TORING DATA" :0PQT0",#-1, "LEDGER 
8 * PRINT#-1 , Ni FQRX=lTONs PRINT#-1 , 
NU$(X),DAS(X),FA$(X),AM{X),JO$(X 

) , AC$ (X) sNEXTX? CLOSE*- 1 iFORT-ITO 
1500:NEXTT,V:CI£:PRINT§233, "DATA 

IS SPDREiy , iFt^I^lTO900:l^EXTT:GD 
TO1000 

2400 REM EXTEND LEDGER 
2420 CLStPRINT@4,"T0 EXTEND LEDG 
ER FILES" ;PRINT@97, "LOAD CASSETT 
E CONTAINING FILES ENTERED TO D 
ATE"tGOSUB6200!<3OTO2100 
3000 REM TOTALS " 
3010 GGSUB6000:PRINT@104,"<1> SU 
B TOTALS" : PRINT? 168, "<2> BALANCE 

SHEET" sPRI»T@232,"<3> UNASSIGNE 
D* ; PRINT! PRINT: GQSUB6100 1 1PS$="1 
"THEN3100 

3020 IFS$-"2"THEN3200 
3030 IFS$="3"THEN3300ELSE3010 
3100 GOSUB6a00:IFA$= , *Y"THEN3130 
3110 IFA$-"N"THEN3120ELSE3100 
3120 CLB?PRINT833,"LQAD CASSETTE 

GCNTAINING FILES TO BE TOTALED 
"xGOSUB6200:CLS 

3130 T-0:INPUT" JOB OR ACCOUNT"? 
B$ s IFB$*"END' , THEN1000ELSE t F0RX-1 
TON: IFB$=ftC$ (X)THENT=^T+ftM(X)ELSE 
IFB$=J0$ (X)THEtfF-T4AM(X) 
3140 NEXTXsPRINT" TOTAL IN "B$" 
ISt *i tPRIWTUSING"$5*###.## M jT» 
GOTO3130 
3200 GOTO6300 
3300 GOTO6300 
4000 R31 SCAN FILES 
4020 GOSUD6800:IFA$="Y"THEN4050 
4030 IFA$="N"THEN4040ELSE4020 
4040 CLSiPRINT" LOAD TAPE TO 

BE SCANNED": PRINT :GO6UB6200 
4050 CLS:GOSUB6000:PRINT8169, "<1 
> SLOW 9CAN*iPRINT@233,"<2> FAST 

SCAN** :O3SUB6100iIFS$="l"THEH407 


4060 IF»35-"2"THE»M080ELSE4050 
4070 CLSjFOKX=1TCN:FQRT-1TO170iN 
EXTT :GO6UB6500 : NEXTXi GCTO6600 
4080 eLS:FORX-lTCN:FORT^lTO80iNE 
XTT; GC6UB6500I NEXTX: GOfTO6600 
5000 GOTO6300 

6000 CLSi PRINT@75, "SELECT GNE"iR 
ETURN 

6100 PRINT@360, /JINPUT^YCUR 5ELE 
CTICtf" ; S$tRETUTW 

6200 PRINT j PRINT? PRINT" RENIN 

D TAPE-PRESS PLAY" : PRINT t PRINT 1 1 
NPUT" PRESS <ENTER> WHEN REAEY 
■ j R$iCLSiPRINT$233, "LOADING DATA 



" jOPEN"I" , #-1 , "LEDGER" i INPOT#-1 , 

NiFORX-lTON: INPUT#-l f NUS(X) , DA$ ( 

X),PA${X),AM(X),JO$(X),AC$(X)iNE 

XTX 

6210 CLOSE#-l:CLS: PRINT? 233, "DAT 

A LOADED" : RETURN 

6300 CLSsPRINT" NOT PROGRAf#!Err ; 

FORT^l TO900 : NEXT t QOTO1000 

6500 PRINT tPRINTTABU)NU$(X)? TAB 

(8) ; :PRINTUSIM3 ,, ##t#.##"?AM(X>y : 

PRINTTAB( 1 7 ) PA$ (X) : PRINTTAB( 1 )DA 

$ (X) ? TAB( 12)AC$ (X);TAB(17) "JOB* 

*JQ$(X) iTftBC 28>X:RETURN 

6600 PRINTtlNPUT" ANOTHER SCA 

N? <Y/N> ■ r S$ : IFS$=" Y"THEN4060 

6610 IFS$="N"THEN1000ELSE6600 

6800 C3^!FRINT£228,;: INPUT" IS TA 

PE LCftDED? <ryN>"yA$sRETUfcN 



LANDER GAME 



4K LMDERGMe 

Hey 4Ker, tired of all the CoCo 
articles requiring 16K or more? well, 
here's a Lunar Lander type game that 
uses Color Basic and only about 2K, so 
it should nn on }cur machine. 

The game has five difficulty levels 
which determine the size of the landing 
pad, the amount of fuel on board, and 
partially determines the strength of 
the gravitational field. The landscape 
changes each time you play, and the 
ship will appear at a different 
location, but will always be in the 
upper half of the screen. The ship 
will have random vertical and 
horizontal motion when first appearing. 
It is controlled using the Left and 
Right Arrow Keys for sideways notion 
and Number Keys one to four for 
vertical rocket thrust. You must 
guide the ship to a safe landing on the 
blue pad. To do this, the ship roust 
not be moving any faster than five 
units down and one unit sideways, in 
either direction. 

Now let us examine the listing. 
Line 3 has the POKE 65495,0 speedup 
command. If your computer cannot 
handle It, omit this line. Line 6 lets 
you input the difficulty level. Note 
that one is hardest while five is 
easiest. 

Lines 12-63 draw the landscape and 
landing pad. Line 12 produces a 
random number that determines where 
the pad will be placed, Lines 15-18 
set some variables to zero allowing the 
game to replay without having to 
restart. Lines 21-24 determine how 
long and high any ground feature will 
be. Lines 30-36 set the ground layer 
and lines 39-42 build it up to make a 
triangle shape. Note that these are 
variables, so you may get some strange 
shapes (what do you expect on an 
unknown planet, anyway!). 

Line 45 sets the location for the 
next ground feature and line 48 checks 
to see if it is time for the pad to be 
drawn, or if it has already been drawn 
as controlled by the J variable. If 
the pad has been drawn or, it is not 
yet time for it, line 51 sends the 
program back to draw the next ground 
feature. Otherwise lines 54-63 draw 
the landing pad. Line 54 and 58 
control the size of the landing pad. 

Lines 66-69 pick the random 
location for the ship. Line 72 
determines how strong the gravity field 
will be. Line 75 determines the amount 
of fuel you get, which ranges fran 250 
to 450 units. 
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Lines 78-81 picks random side and 
downward notions for the ship. If sv 
is negative, the ship moves left; 
positive and it moves right. If SV 
equals six, it will have no side motion. 

Line 84 draws the ship the first 
time it appears. Afterwards, the ship 
is controlled via the keyboard. This 
is done in a loop that starts at line 
87, where the ship's downward velocity 
is increased by the gravity field 
divided by three. Do not ask why I 
used this particular formula, it just 
seemed to work out nicely. 

Line 90 will skip over yaur keyboard 
control if you have used all your fiael, 
but the graphics will be continued 
until the bitter end. 

Lines 93-102 are the sub loop that 
checks keys one to fiour. By using the 
PEEK command* the keys can be held 
down for continuous engine thrust* 
Line 99 checks which key, if any is 
pressed, and makes the value of BX 
equal to BU r which is the roeket burn. 

Lines 108-111 use the PEEK conmand 
to check on the arrow keys and make 
the adjustments to the side velocity* 
They also have a sound effect and use 
fuel. 

Line 114 figures out your vertical 
velocity status if the main engine has 
been fixed. Nate that the burn factor 
remains constant for each key, but its 
effect is determined by the strength of 
the gravity field, as the field gets 
stronger or weaker, the burn will have 
less or more effect. 

The altitude readout is determined 
by the Y, or height catpsnent, of the 
ship times ten. If the ship's height 
is less than 50, it is multiplied by two 
to make it look a little better. If 
the Y component reaches 23, the ship 
has hit bottom and crashed. 

Line 123 adjusts the ship's vertical 
visual movement in accord with its 
velocity. Feel free to change the 
parameters, but remember you have less 
than 30 points to work with. 

Lines 126-132 control the ship's 
sideways movements. Line 135 checks to 
see if the ship has reached either the 
top or sides of the screen. The ship's 
motion will continue unless you or 
gravity do something, but it will 
happen off screen as line 135 will make 
the program skip over the graphics 
until the ship is back within the 
screen's limits. 

Line 13 8 actually draws the 
spaceship. Line 141 checks jour fuel 
and sets it to zero if }ou burned it up 
In the last loop* Line 144 gives the 
readout of the various factors found at 
the bottom of the screen. P Is fuel, h 
is altitude, S is sideways motion, V is 
vertical velocity, and G is gravity field 
strength. If V is negative, you are 
going up. Bssitlve and you are coming 
down* When you land, 5 cannot be 
greater than plus or minus one and V 
cannot be greater than five. 

Line 147 again checks to see if the 
ship is on or off the screen. If off, 
you loop back to 87 to start another 
cycle. If on, lines 150-167 check to 
see if you have hit the ground or 
landing pad. This is done by checking 
the color of the three points directly 
under the ship, and one on each side 
when it is above a certain height, if 
they register white, you have hit 
something. BeLcw a certain height the 
three points under the ship are the 
only ones checked but with a 
difference. Instead of being 
immediately under, they are the next 
level down. I had to do this because 
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of the way OoOo handles low resolution 
color blocks. Di a four block square, 
each color has to be the same. What 
was happening was when the ship was 
one level above the pad, it would turn 
the pad yellow, matching its color. 
Since the confuter was only looking for 
white and blue, it would take no action 
and the ship would continue down and 
through the pad. To prevent this, I 
adjusted the points to be checked so 
they would be in a different square 
than the ship. The ship now lands one 
level above the pad. 

If the ship has not hit anything* or 
landed, line 168 resets the points so a 
new position can be displayed. Line 
171 is used after the first time the 
ship is drawn so that the computer will 
accept keyboard inputs, and 174 sends 
the program back to start the loop 
over. 

If you hit the ground, line 177 lets 
you know and 180-192 tells you what you 
did wrong* Lines 195-198 produce a 
sound effect and 201 moves you to the 
play again option. 

If you did land on the pad, lines 
204-207 make sure you were within the 
given parameters, and if not, sends you 
to line 177 to tell you that you blew 
it. Line 210 congratulates ^ou if you 
did it right, and 213-216 produce a 
sound effect. Line 219 again asks if 
you want to play again. If you choose 
to play, you go back to line 6 and can 
chooBe a new level. ¥bu automatically 



get a new landscape. If you choose 
not to playi line 225 shuts off the 
high speed poke and ends the game* 

That, in a cracked nutshell, sixas it 
up. If you need a justification of 
what is going on, pretend you are 
trying to remote control ships to a 
safe landing after they have warped out 
Of hyperspace. We all know how tricky- 
hyper apace is, so over which planet, 
and where over it, and going in what 
direction is all left up to chance, m 
each ship is a cargo of gold, or arms, 
or gorgeous members of the opposite 
sex, or whatever you little heart lusts 
for* To reap the rewards, you must 
bring those little ships in safe and 
sound. 



1 REM LANDER BY ROBERT TOSCftNI 

3 TOKEG5495 f 

6 INPOT"LEVEL 1 HARD-S 3*S¥"jH 

9 CLS0 

12 Wtt©(42) 

15 E=0:KF=0sJ=0 

18 P=0:G=C 

21 B=KMX27},IF B<7JTOJ210R IP E 

>50 AND B<12THEW21 

24 I>=RND{28)iIF 1X14 OR D>27THEN 

24 

27 FOR G=29 TO D STEM. 

30 FOR A?^E+F TO E+B-G 

33 IP A>63*mEK6b 

36 SEF(A,e,5)iNEXTA 

39 F=F+1:G=GU 

42 NEXTC 




QUESTION 

WHEN WAS THE 

LAST TIME YOU 

HAD A TALK 

WITH YOUR 

COCO 
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THE SPECTRUM VOICE PAK - a CoCo voice 
synthesizer - is a complete phoneme based voice 
system that uses the famous VOTRAX SC01 chip 
synthesizer in a cartridge style pak. It provides 
an unlimited vocabulary with automatic or user 
supplied inflection, plus four programmable levels 
of pitch. With a single line of code, THE VOCE PAK 
adds speech to any BASIC program in minutes. 
The system comes complete with user instructions, 
software cassette with 16K and 32K - DISK/TAPE 
versions, a text to speech scanner translator and 
a Word Manager that constructs and edfts custom 
user cfctionaries. The unit is fuiy assembled, tested 
and ready to plug hi and talk, talk, talk $69.95 



AIL ORDERS PLUS S3.O0 S/H - NY RESIDENTS ADD SALES TAX 
SPECTRUM PROJECTS / »3-15 88th DR / WOODKAVEN NY 11421 / 21M41-2807 



45 &=E+B 

48 IF E>-L AND J*0THES54 

51 GOT018 

54 FOR IMTg H+4 

57 SErr(B4K,29 # 3) 

58 IF E4K=>63TTaW63 
60 NEXTK 

63 &=Et*CiJ»lsGOT018 
66 I*£RND(60)!»=RND(11) 
69 IF M<4 OR HO THEN66 
72 Gfc>RND(12)-H*lF <31<=4THEN <Et* 
3 

75 Ft«0fl-m*50 

78 SV^ND(11);IF 5V<=5THEN SV^-S 
V ELSE IF SV>6 THEN SV^V-5 ELSE 
SP4 
81 VB-RND<30) 
84 IF KF-OTHEN138 
87 BX-0iBU-0iVE=VEfI»T(GR/3) 

90 if fu<=^jihenh4 

93 FOR PB*339 TO 342 

96 BX-BX+BX+1 

99 IF PEEK(PE)=»239THBY BU=BX:SOU 

ND90-(BU*2),1 

102 NEXT PE 

105 FU-FU-BU 

108 IF PEfflC( 343)^247 THEM SV=SV- 

1 :SCWND100, ltH^TJ-1 

111 IF FEES ( 344 )^247THei SV=SV*1 

t 8CUHD100, 1 : FU-FU-1 

114 VB-INT(VE-BU*.5) 

117 AD=(28-N)n0sIF AL<50 THE* A 

L=(2B-N)*2 

120 IF N>27THQJ177 

123 IF VE>0 AND VE<20THQJ N-CM-1 

EI£E IF VE>=2OTHB* N=»»*2EU5E IF 

VE<0 AMD VE>-2OTHBtf N-K-1EI5E IF 

VE<*-20THEN N=N-2 
126 IF SV-0THEN S^jGOI0135 
129 &=INT(SV/2)iIF S^IHQJ &=1 
132 M-M+S 

135 IF M<-2 OR H>60 OR N<»0IHE211 
44 

138 SGT(H-l v tffl,2)iSBr(M*-l,»tl # 2 
) jSBT(M, N, 2) i SCT(Mf 1, Nf2, 2hSET{ 
M, N+2 , 2) t SET( M-l , Sf2, 2 ) 



141 IF FU=<0IHQJ FtW 
144 PRIOT@4a0r M F ,, jFUj;PRINT^485 f 
■ A w yALyiPRniT@492,* S"iSVjsPRIN 
TS499," V";VE?iFRIOT@504, w G"?GR 

147 IF M<=2 OR M>60 OR H<=<n«a38 

7 

150 IF N-25THEN ZX-1£E£B ZXM3 

153 IF r#-25THEN CV^3EE£E CV=4 

156 IF »=25THEN BtWELSE BN=3 

159 FOR QehZX TO CVsE»«POlOT{M-2 

162 IF ER-5 THEN 177 HSE IF Q*- 

3 THEN 204 

165 NEJCT OW 

168 RE3ET(W-l,N4-l)iRESEr<Mfl,N4-l 

);RESEr(M,N)sR^ET<M*l*»f2)sRESE 

T(M,»l-2bHESEr(M-l,tM) 

171 RTal 

174 GOT0B7 

177 PRINT@0,"eRftSHEDJ ,, r 

180 IF VE>5AHD AL^lSTMiNPRItfr" G 

OING TOO FAST*j 

183 IF FU<*^OTHENPRINr" RfiN CUT O 

F FUEL"* 

186 IF AL>19THQJPRI*ir' RAN RIGHT 

INTO IT" ; 
189 IF AL<19AND Eft-STHENPRIOT" M 
ISSED THE PAD"; 

192 IF SV<-lOR SVHTHENPRltfT" TO 
O MUCH SIDE MOTIOT 

195 FOR tf=255TO 1 STEP-3 

196 SOUND ILlsNEXTU 
201 G0TO219 

204 IF VE>5THEN 177 

207 IF SV<-10R SV>1THBH77 

210 PRINTG0, "GREAT IANDING"? 

213 FOR U=1T0255 STEPS 

216 SOUND U,liNECTU 

219 PRIST" TRY AGAIN Y/iTimPUT 

D$ 

222 IF D$=s"Y"THEN 6 

225 POKE65494,0?EWD 

Robert Tbscani 








TRS-80 + MOD I, Ml, COCO, TI99/4a 
TIMEX 1000, OSBORNE, others 

GOLD PLUG • 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 80 soiders to the board edge con- 
nector. Use your existing cables, (if gold plated) 



& 






s 







$44.95 

15.95 

7.95 



1 1 0. 8 & 



-9^5* 



16.95 
INCL 

7.9S 



GOLD PLUG 80 Mod I (6) 

Keyboard/E I (mod I) 
Individual connectors 
COCO Disk Module (2) 
Ground tab extensions 
Disk Drives (all R S ) 
Gold Disk Cable 2 Drive 
Four Drive Cable 
GOLD PLUG 80 Mod III (6) 
Internal 2 Drive Cable 
Mod III Expansion port 
USA shipping $1 45 
Foreign $7. 

Ask your favorite dealer or order direct 

B, E.A.P. CO. 

P1W P.O. BOX 14 

»«■ "i*" KELLER . TEXAS 76248 
(8 1 7) 498-4242 MC/ VISA 

+ trademark Tandy Corp 



-J. JfU-> 

I .uu 

2995 
39.95 
54.95 
29.95 
10.95 
Can/Mex $4. 
TEXAS 5% TAX 
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gained an excellent reputation fcr the 
quality and support of their products. 
We will have a full review of the FDC-1 
next month, but, in the mean time, here 
are seme of our initial findings, 

F & D is primarily ONLY selling the 
PC Board and a ■ special* chip (the 
FDC9216B), with instructions, for 
$49.95. The PC Board will have Gald 
Plated PC Lands for the Edge 
Connector* and the circuitry consists 
of only about two dozen parts, total, 
including 14 IC*s and a Crystal, with HO 
Ad justnents , It will take an 
experienced "solderer" less than two 
hours to assemble the unit once he has 
the parts rounded up, and the layout 
is 'spacious 1 , so the soldering is not 
at all tedious. Ours worked the first 
time we plugged it in. We used a 
standard Western Digital Controller 
Chip, and had, NO problems with Radio 
Shack or flex, but was unable to 
format an OS-9 Disk due to a chip 
timing problem. A call toF&D, and 
some checking and discussions, led to 
the discovery that cs-9 works fine with 
the Radio shack supplied Disk 
Controller Chip, but HOT with the 
standard WD Chip. Also, the I93C-1 is 
designed to use either an F i D ROM 
(FADBUG-C* $25.00), OR the standard 
Radio Shack Disk BASIC ROM (about 
$35.00, depending on yaur source). So 
far, we are EXTREMELY pleased with this 
Color Computer Disk controller. 

-mis Month* 

It is the ,f BJature of the Beast" that 
MOST color Computer owners are new 
Computer Users, and therefore have 
MANY questions about much of the 
'stuff that many of us consider to be 
'Old Rat\ Yet, there is also a HIGH 
percentage of COCO Owners that are 
"mature" Computer Ueeray who 
understand Disk Systems, Assembly 
Language Programming, etc* with Color 
Micro Journal's thrust towards USAELB 
INFORMATION for the Color Computer 
User, we must provide a broad coverage 
of material. 

The large majority of CoCo Owners 
have, and are fairly fanriH*T- with, the 
Tape System and its operation, but the 
Disk Systems open up a whole new can 
of worms. We have an Article this fflonth 
that should help those considering the 
purchase of a Disk Eastern by answering 
some basic questions about Disk 
Systems, and especially the CoCo's* 

For the BASIC Users, we offer a 
"Lander" type of Game for the 4K 
Owners, and a Small Business 
Bookkeeping System for the Tape Users. 
Finally, we have the first part of an 
Assembly Language "Linking Loader" 

System Which can be Assembled for 

either Radio Shack DOS or the FLEX 
DOS. The Source Code, which is fairly 
lengthy, will be presented next month. 
With the Microcomputer systems nwing 
more and more towards the "Large 
System" procedures of modularized 
structures, and the use of Relocating 
Assembler /Linking Loaders, we have 
oriented this Article towards both 
providing some background information 
on Linking Loaders, their use and 
operation, and then will provide the 
Program that will allow you to use the 
concepts in building up a ''library*' of 
••Linkable Modules** which can be 
included in your Machine Language 
Programs as needed. 

Color Micro Journal 



SUPER 
SALE ON 

NEW DISK DRIVES 

As law as $199PO with 
Power Supply and Case 

Plus 6 Month Warranty 

Even more Savingsll 

Color Computer Controller $139.95 

Color Computer Disk Drive Kit 5349.95 

Disk Drive Head Cleaning Kits $CaII 

Disk Drives Cleaned & Aligned &Tested $29,95 

Case And Power Supply 

Single drive.... ..„'.. $49.95 

Dual drive $79.95 

Unadvertized Specials ., $Call 

Coll us today!! 

(617)234-7047 

We welcome «Vlsa/MasterCharge TRS-80 trademark 

•Checks (allow 2 weeks for clearing ) Tandy Corporation 

«C.0£). (add $200 per shipment) 
Shipping: Please call for amount. 




TRUE DATA PRODUCTS 

195 Lin wood Street, P.O. Box 546 
Linwood, Massachusetts 01525 
(617) 234-7047 
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We are receiving more and more 
requests for "Hardware* information and 
PROJECTS? Basic Digital Electronics, 
information on the "innards" of the 
CoCq such as the SAM Chip, PIAs f VDG, 
A/d and d/a conversions, the Memory 
Chips and Addressing Methods, Video 
Systems, Disk Controllers and Chips, 
etc . We also see a lot of interest 'for 
information about "adding more 
capability" to the aolor Cpnputer, such 
as a Hard Disk Interface, AOA's, R-G-B 
conversions, etc. How about seme of 
you "Hardware Hackers* giving us a 
call, or drop us a note* we are also 
receiving a lot of requests for "basic 
information*; BASIC Programs for 4K 
systems. Methods for using the Tape 
System for File Storage and Retrieval, 

etc., etc*, etc* 

OOQO PQNSt * • . 

Some of us have been "preaching* 
about the power of the Radio Shack 
TRS-80C Color Computer since it first 
hit the streets, because we KNOW the 
capabilities of the 6809 CPU that 
resides under the cover of this 
Computer. While the Z&B Series CPU 
Chips are very good devices, they have 
been "out-dated" by what has been 
learned during the last 10 to 15 years 
of USING Microcomputers, and by the 
progression of Programming Methods 
over this same period of time, m the 
vast majority of cases, the Z80 has 
been strapped to the CPM Disk 
Operating System, which STIU, restricts 
the Z80 to the old 8030 Instruction 
Sub-set, which makes NO use of some of 
the Z80*s more powerful capabilities. 



One of the most illuminating 
comparisons between the two CPU Chipe 
can be found in the Operating Systems 
available for them, While probably 90% 
of the Assembly Language Progrankaers 
in the US has been working with the 
Z80 for better than 10 years, they are 
JUST HOW beginning to develop Multi- 
User, Multi-Tasking Operating Systems 
for that CPU (such as Oasis, Isis, 
Zenix, etc.). Less than a year after 
the 6809 hit the market, there were 
TWO good Multi-user, Multi-Tasking 
Operating Systems available for the it; 
OS-9 and tkdFLEX. Mow, as I am sure 
most of you are aware, OS-9 is running 
on the Color Computer* 

Another indication of the power of 
the Color Computer is the number of 
them purchased by "Technical** people; 
especially those in the Space Industry. 
From the Engineers through the 
"Technicians", the Color Computer 
appears to be their primary choice. 

While it is extremely powerful, it 
also has some limitations. The biggest 
limitation is the use of Software in 
providing the Serial Output and 
Keyboard interfere. This really shows 
up with the OS-9 Operating System, 
which much prefers to be "doing its own 
thing" rather than having to look 
through rows and columns for a key 
from the Keyboard, or *punch bits* 
through a PIA to provide a Serial 
Output. Bren with this limitation, 0S- 
9 still provides more inherent power in 
an operating System than is available 
for any other Home Computer, and most 
Business computers. 

Overall, the Color Computer provides 
more Power for the Dollar than AMY 
other Computer available; Home or 
Business, Micro or Mainframe. NO, the 
Color Computer will not replace the 
Business Computers, small or otherwise. 



The Color Computer's slot in the 
"scheme of things** is in the area of 
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The first area of learning that the 
Color Computer fills is that of 
"Pergonal Computer Education". 
EVERYONE knows that "Computers" are 
the "wave of the future". They are 
appearing EVERYWHERE; on the job, in 
the home, in college; in household 
appliances, in cars, in the grocery 
store cashiers line, at the 'instant 
banker* location, in the drug store, in 
the auto repair shop, etc., etc- 
"John Doe" buys a "personal Computer" 
just to keep from being left behind in 
the world he lives in. For around 
$300, he can begin to "learn about 
Computers 1 *, and for less than $2000 
total, spread over a period of time, he 
can have a computer System that 
provides an introduction to the use 
and operation of some of the most 
sophisticated and powerful operating 
Systems in the world, along with the 
availability of equally powerful 
Programming Tools. 

The other area of EDUCATION which 
can be fulfilled by the Color Computer 
is that of "Formal Education"; i.e., in 
the Schools. Here, even more than in 
the Home, COST is a major 
consideration. Again, the Color 
Computer is "untouchable" as far as 
capability versus cost is concerned. 
In the lower Grades, the combination of 
Color and Sound provides maximum 
attention span, and is EASY to Program 
on the OoCo. m the later Grades, the 
Color Computer provides the Advanced 
Operating systems and programming 
Languages that can allow a student to 
move into a College Situation and 
concentrate on CONCEPTS, rather than 
learning "how to use the Computer". 

The major hold-up in the Color 
Computers emergence as a MAJOR 
Educational Tool is the shortage of 
GOOD Software, if you look at the 
emergence of software for the 
comparable Computer Systems (i.e.. 
Atari, Apple, Caimodore - the little tt 
is not even in the same league), you 
will see that the first 'thrust' of the 
Software was towards Games. This 
happens for a couple of reasons: first, 
that is the "quick buck" Market and 
provides both the Computer Programmer 
and Computer User a means of becoming 
familiar with the machine; and, second, 
it allows Programmers to develop 
techniques and skills to be used as a 
basis for writing good 'working' 
Software, we are now beginning to see 
some results from these experiences in 
seme of the OoOo Software. All of this 
Software is applicable to the "cemprter 
Education" area; i.e., the Computer 
User uses it to learn more about HIS 
Computer, and Computers in general. 

The real lack of GOOD Software in is 
the "Formal Education* area. There 
are a few good programs, mostly in. the 
below 7 year old area, but there the 
Software dies. Hot only is this area 
weak on the Color Computer, but it is 
no better with AHY of the small 
Computers. Hie problem in not so much 
that the Software in not available; it 
is that the BASIC CONCEPTS are wrong! 
The use of the Computer in Formal 
Education requires DIFFEKQTT methods 
and concepts than the old, established, 
"book learning** methods. New 
techniques for instruction are 
required, along with new classroom 
concepts, different teaching methods, 
etc- How many of your childrens' 
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schools "Have a 0aniwtar , 7? Well, hew 
many USE JUST QUE BPHBBI ft>r a 
typing class? See what I mean. Not 
only that, tout most school 
administrators can not ercn grasp the 
concept that a Program for an Apple 
will not run on a Color Computer. 
After all, a computer is a Computer. 
Right? 

Even though there is a REAL need 
for a MAJOR OVERHAUL in the 
Educational System, and the Computer 
appears to provide MANY of the 
answers, it will take a long time to 
overcome the inertia of the "present 
system" . ffest of you reading this can 
begin to make some inroads in these 
areas through worE with School Groups, 
such as the PTA, by offering your 
"expertise", and KEOC**iEtfDMG the Radio 
Shack Color Computer. You can put a 
half dozen CoCos in a classroom for ONE 
Apple, and give up WHAT? aire, there 
is a lot of Software for the Apple, but 
is it any better than the little bit 
available for the CoCo? HOI m feet, 
as I mentioned earlier, there is very 
little VALID Software available &r AWT 
of the computers. Most of the 
Computers in a School are used either 
to keep kids "out of the way", or as a 
"candy bar" for doing something right. 
VERY SOJXM is a personal Computer put 
to any good use in a School. Think 
about YOUR situation, and let us know 
YOUR thoughts on the matter^ 

We will pursue this matter as time 
goes on. Again, let us know your 
thinking, whether you are a Parent, a 
Software Developer, a Teacher, or what 
ever? LETS HEAR FROM YOUl 

Rim, Editor 
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Here is a useful utility, CBBBSt 
that I wish you to consider for 
possible publication. I am 15 years 
old and I have owned my Col o r Computer 
for two and half years. I enjoy using 
the graphic and sound capabilities of 
the Color Computer, and I have written 
UTTERS to be an aid in doing so. 

LETTERS is designed to provide text 
symbols on the graphic screen without 
the time— consuming chore of drawing 
each individual one* It is not 
designed to replace the text screen, 
but to make it easier to use labels 
and prompts for >our M-res games and 
graphic displays. 

I have included in LETTERS almost 
all of the Keyboard Symbols available. 
The 26 letters correspond to a 
variable named the same as the letter. 
For example ? to draw the letter *A* 
type DfttJf AA$. The letter 'X* would be 
XX$. 

The numbers are drawn in a 
different way. For example i to draw 
the number '5' type DIVM H$(5). The N 
stands for number and the number in 
parenthesis is the ntirtber you want to 
draw* The numbers range from to 9. 
To draw a larger number such as '29' 
type mm H$(2>4H${9) . 

Here is a list of symbols that have 
more than one letter for a variable, 

+ PLUS? 

MINUSS 



X 


(TIMES) 


MULT? 


DIVISION SIGN 


DIVI$ 


■ 




EQUAL? 


1 




EXCLAIM? 


■ 




CMOTE$ 


# 




NUMBER? 


? 




DOLIAR? 


• 




APQS$ 


i 




praair? 


( 




LPAREN$ 


) 




RPAREM$ 


— . 




DASH$ 


r 




COMA? 


/ 




SLASH? 


< 




LTHAN? 


> 




GTHAN 


i 




SEJtE? 


1 




CLDN 


? 




QMAHK? 


UP 


ARROW 


ARROW? 


UNDERLINE 


ULINE? 


■ 




PERIOD? 


SPACE 


SP? 



If you wanted to draw something on 
the graphic screen, here is an example 
of what you would enters 

10 PMODE 4sFGLSsSCKEEN 1,1 
20 DRAW "BM0, 100"+II J ?+EE?+TTS+Tr 
?+EE$+RR$+3S?+SP?+SP$ 
30 DRAW A$+DASH$+ZZ$+SP?4N$(1)+D 
ASH$4*J§(9) 
40 GOTO 40 

The result the graphic screen would 
lobfe like this: 

lenses A— Z 1-9 

Here is a description of each lines 

LINE 10: Sets the proode, clears the 
graphic screen and sets the color 
mode. Tftese can be whatever you want 
them to be . Of course, the symbols 
look best in PMODE 4, since it is the 
highest resolution. 



LINE 20; Starts to DRAW at location 0, 
100 on the graphic screen. Tlie is 
the horizontal coordinate, and 100 is 
the vertical coordinate. These can 
also be whatever you wish. Then it 
draws the word LETTERS and tuo spaces 
following it* 

LIME 30 s Draws the letters 'A-z' and 
the numbers "1-9* 

LIME 40; It Keeps going back to 
itself, and it will Xeep the program in 
an endless loop to keep the graphics 
on the screen. It can be stopped by 
pressing the BREAK Key. 

Be sure that there are no variables 
in your program that have the same 
variable names as the ones used in 
LETTERS. Tfiis will cause undesired 
results in your program. I have used 
double variables such as BB$ and ZZ$ 
to keep them from getting confused 
from variables such as B$ and Z?. Ch 
the longer variable names, such as 
EQUAL? r the computer only uses the 
first two letters - BQ? f so be sure no 
other variables in your program have 
even the first 2 letters of a variable 
the same. If you want to use 
shortened variables, that will work 
fine; I have used longer variables to 
keep the program organized. 

Use LETTERS as a subroutine at the 
end of you program. The first or 
second line of your program should 
GOSUB to that routine and then RETURN. 
All the variables will be defined, and 
you will not need to go back to that 
routine again. 

I hope LETTERS will make it easier 
to provide text on the graphic screen. 
Many times I have avoided putting text 
in my graphic programs because it was 
too difficult. It is now much easier 
with tills utility. This program can be 
modified to suit you needs, or used as 
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Or lei ZSQ.-'flOaO,' 51 
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For Color FLEX or OS,'9 
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DEBUGGING SIMULATORS 
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Each HI FLEX 
$101 OS/9 

$50. QQ 
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Each S90-FLEX 
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Each 979-FLEX 

SlOOOS/9 

979-FLEX 

SS5-OS/9 

Both 950-FLEX 
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FULL SCREEN TSC XBASIC PROGRAMS FOR FLEX 

(wilti lull curior control} 

MAILING LIST 9100 

INVENTORY/MRP 9100 

TABULA RASA SPREADSHEET 9100 



XBASIC/XPC UTILITIES 

ire-sea «r«H. «pc sort gen} 



All 929 



Computer Systems Consultants, Inc. 

1454 Letts Lane 

Conyere, Georgia 30207 

40448 31717/ 4570 

Programs in source or* 5"/8" disk. 

Detailed printed manuals provided. 

Call for catalog or dealer Information. 



VISA and MASTER CARD accepted 
US Funds Only 



Add 5% Shipping 



'"FLEX is a tradamaric of TKftrieK Sytten* Coneufcanis 

"OSS t& a trademark cA Microwara 
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a sub-routine in your programs? even 
ones you wish to copyright. I just ask 
that you simply mention in REM 
statements, or in you title screen, 
where you took it from (this is 
standard procedure for any Published 
information - Editor). I hope you 
enjoy L«ETrERSI 



*** 



10 •*** LETTERS 

20 ■**# Btf PETER SHJMFF 

50 CLEAR 1000 

60 DDM$(l5} 

70 GOSOB 2080 

710 '***DRAW TTTLE SCREEN*** 

720 PMCCE4,ltPd5sSCREENl,l 

730 GOSUB820IGO6UB940 

740 SCREEN! ,0sGQ6UB940 

750 PMDDE3,l;PCI£!SCHEENl f l 

760 GGSUBS20:GO6UB940 

770 SCREEN!, 0JGO6UB940 

780 PMDDEl,l:PO£:SCREENl,l 

790 GCSUB&20:GOSUB940 

800 SCREEN!, 

810 GOSUB940sGCrTC)720 

820 IMWW*BM40,40S12 M +I1 J $+EE$+TP$ 

+TT$+EE$+RR$+SS$ 

830 DRAW w BM44 / 40"+UL$HJL$«JL$+U 

L$+UL$4UL$ 

940 DRAW"BMi02,65S8 ,, +BB$+YY$ 

850 DRfiW"HM35, 90 W +PP$+EE$4 J PT$+EE 

$+RR$+SP$+SS$+TT$+UU$4*«?+PP$+FF 

$ 

860 DRftW , BH0,120 ,i +AA$+BB$+CG$+DD 

$+EE94FF$+GG$+HH$+II$4JJ$+KK$+LL 

870 DRAW NS$+OO$+FP$+Q0$+RR$ 
880 DRftWRMB, 140"+SS$+ J TT$+UU$^W 

890 DRAW EX$4QU$^iaUS+C30$^P , R$4AP5 

+IP$+RP$+EQS+Dft$ 

900 DRAW-EM54,l€0"+AR$+PIi$+SE$4C 

L^T$4GT$4C0$+PE$+CMS+SL$ 

910 DRAW ,, BM50,180 H 4N${1)-H<I$(2H^ 
$(3HN$[4)+N$<5)4*I$(6)+*J$C7) 
920 DRAW N$(8HN$(9)+H$(0) 



930 RETURN 

940 PCR»-lTO1000sNEXT 

950 RETURN 

2070 '***1NITILIZE LETTERS*** 

2080 SP$="BR9" 

2090 AA$■' i BR3U4E2F2D2rl4R4D2 ,, 

2100 BB$-"BR3R3L3U6R3FTX23R3FDGB 

R" 

2110 OC§= rt BR3BUFR3L3HU4ER3BD6" 

2120 DD$~*BR3R3L3U6R3FD4GBR" 

2130 EE$="BR3R4I J 4U3R3L303R4BD6" 

2140 FF$-* t BR3U3R3L3U3R4BD6BL* 

2150 QG$="BR3BUFR2EUHt£L2D2U4ER3 

BRBD6* 

2160 HH£*"BR3U6D3R4U3D6* 

2170 II$-"BR3R4L2U6LZR4BD6 1 ' 

2180 JJ$="BR3BUFR2EU5BD6" 

2190 KK$="BR3U6D3RE3G3F3 H 

2200 L£$= H BR3BU6D6R4BL" 

2210 rM$= H BR3U6F2E2D6" 

2220 NN$-"BR3U6DF2F2DU6BD6" 

2230 00$== ,, BR3BIUU4ER2FD4GL2HFBR3 ,, 

2240 FP$« ,, BR3U6R3FEGL2BD3BR3" 

2250 QQ$-"B«3BUU4ER2FD4GL2KPR2EH 

F2BL" 

2260 RR$="BR3U6R3FDGL3R2F2D B 

2270 SS$="BR38UFR2BUHL2HUER2FBD5 



2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 

2360 

2370 

2380 

2390 

BDl- 

2400 

2410 

ft" 

2420 



TT$=*"BR3BU6R4L2D6BR2 

IXJ$="BR3BU6D5FR2EU5BD6" 

W$-"BR3BU6D2FD2FEU2BU2BD6* 

WW$« M BR3BU6D6E2F2U6BD6" 

XX$="BJtfUE4UEL4DF4D" 

YY?- M BR3BU5UDF2E2UDG2D38R ,, 

SZ$* n BR3BU6R4DG4DlR4 

'♦♦INTTILIZE OTHER SYMBOLS* 

FLU5$- ,, BR5BUU4D2L2R4RRBD3'' 
KXNUS$="BR5BU3R4BD3 
MULT$s"BR5BUE3BL3F3BLBDBR2" 
DIVI$» ,, BR5BU3R4L2BUUBD3DBR2 

ECUAl4s N BR5BU3R4BUL4R4BD4 M 

EXCIAIM$="BR3BR21JBU2U4BR2BD 

QLKfPE$="BR3BRBU4U2BR2D2BR2B 



D6 W 

2430 NUMBER5= W BR3BU2U4BR2D4URL4B 

U2R4GD5BR2" 

2440 D0UAR$= W BRBU2R4U2L4U2R4L2U 

DeBRSBD" 

2450 PRCEOT?="BR3BU6DRUBR3G5BR3U 

RDBPBD" 

2460 APQ6$» ,, BR3BRBU6UDOR3BD5 ,, 

2470 IPAREN^s"BR5BUHU4EBR2BD6 

2480 RFARENS= M BR5EU4HBR2ED6 

2490 DA3H$="BR3BU3R4BD3" 

2500 CQMffi$- w BR3BRUDGBR3* 

2510 FERIOD$="BR3UDBR4" 

2520 SLASH$^ W BR3UEU2EUBD6 

2530 LTHANS^BHaBLnPSHSESBDeBR" 

2540 <JTHAN$-*BR3BR4BU3G3E3H3BD6B 

R4" 

2550 di^S- M BR3BRBUUBUUBD4BR2 H 

2560 SEMI$s'"BR3EUBUUBD4HR2 r, 

2570 CHftRK$^ tt BR3BR2UBUU2REtML2GB 

D5BR4 M 

2580 ARROW$* H BR3BR2U6G2R4H2BD6BR 

2" 

2590 ULINE$="BR0BD1R8BU1 

2600 '***INIT1ALIZE NUMBERS*** 

2610 N$(lj-*BR3BR2R4L2U6G2BD4BR3 

H 

2620 N$(2)=- H BR3R4L4UZE1R2E1U1H1L 

2G1BD5BR4" 

2630 N$(3)s"BR3BUlFlR2El01HlLlRl 

E1U1H1L2G1BD5BR4" 

2640 N$(4)-"3R6(J6G3R4BD3 m 

2650 N$(5)= M BR3BU1F1R2E1U1H1L2H1 

U2R4BD6" 

2660 N$(6)» n BR2BUPR2EtJliL2GOU4ER2 

FBD5* 

2670 N$(7)- M BR3U1E3U2L4D1B05BR3 

2660 tf$(8)= M BR3BRlR2ElUlHlL2GlDl 

F1H1U1E1H1U1E1R2F1D1G1F1D1BD1" 

2690 W?{9) = "BR3BU1F1R2E1U4H1L2G1 

D1F1R3BD3" 

2700 N${0)» M BR3BUFR2EU4HL2GD4E4B 

D5 

2710 RETURN 

Fs ter Stvis^f 
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COLOR TUTOR review 



Elite Software 

Box 11224 
Pittsburg, PA 15238 

16K Ext. BASIC 

Tape - $19.95? Disk - 22,95 

Learning is not a gift. Learning is a 
habit of employing certain skills necessary 
to retain information. Students Who appear 
to have an easy time mastering their studies 
will tell yau that the secret is hawing good 
study habits (SKILLS). Time spent by 
students with good study habits is vrell used 
time. Many students complain that the 
material or subject of study was very hard 
to learn, even after hours of trying to 
learn it. On the other hand some students 
will report that had they no unusual 
complications of learning their subject even 
when they spent much less time at study. 
Spending twenty minutes to study (employing 
good study habits) will allow a student to 
follow the material and retain it better 
than a student (who has not developed good 
study habits) who has spent two hours 
studying. 

COLOR TUTOR by JOHN WACLO is not going 
to give a person good study skills 
overnight, but it will guide a person 
through a subject matter in a uniform 
manner that will will begin to pay dividends 
from the very start. Using COLOR TUTOR is 
easy and repetitive. OOLOR TUTOR provides a 
skeletal structure by which study material 
can be entered into a computer r edited, and 
saved on either disk or tape {depending on 
which version you need). I will restrict my 
remarks to the Disk Version, although the 
Tape Version is exactly the same. 

once you have inserted your COLOR TUTOR 
disk into the machine and powered up, merely 
type: 

RuTiuiuit" 

A menu will appear on the screen as 
follows* 

1* TYPE N&T I£5SOH 

2. LOAD LESSON FROM DISK 

3. EDIT LESSON FROM DISK 

4. SAVE LESSON ON DISK 

5. STUDY LESSON 

6. EXIT LESSON 

When selecting #1, you will be prompted 
With? 

HOW MANY QUESTIONS DO TOU HAVE? 
At this time you enter the number of 
questions you desire (a maximum of 50 
questions are allowed for one lesson). This 
will be followed by: 

TYPE QUESTION It 
A question mark is automatically entered for 
you after each question is typed. After 
typing in the question, you will be asked to 
type in the answer to question #1. This 
Will continue until you have typed in the I 
pre -selected number of questions and I 
answers. If a 16K machine is being used, I 
restriction to 32 characters (64 on 32K I 
machines) for each question is recotmended . 
The program then returns to the main menu. 

If a person has already entered a list of | 
questions and answers, then selecting #2 ( 
will call that data in from the disk by j 
asking for the: 

FXLENAte 
Once the data has been loaded into memory, j 
the main menu will reappear for you to make j 
a selection. j 

If the need arises to change a question I 
or answer because of a typographical error, 1 
Using #3 (EDIT LESSON MATERIAL) will ask j 
which question or answer you want to i 
t-hange, by number. A nice feature to this ! 



program is that when selecting #3, a 



password must be entered* This keeps 1 
unauthorized editing of a lesson to a [ 
minimum. Options for continuation of editing ! 
t>r returning to the main menu are given J 
*fter each question is edited. ] 

To save a lesson on disk, you would J 
■elect #4 (SAVE LESSON ON DISK), which will j 
**sk you for a filename for the lesson to be J 
■aved. The filename selected can not be J 

i 



longer than 8 characters, and with the disk 
version a 3 character extension can be 
added to the filename. Pressing "ENTER" 
will then save the lesson on disk and return 
to the main menu. 

Finally, when you are ready to study the 
lesson, selection #5 is entered. The 
questions will be randomized. You will be 
asked if you want ail spelling checked? If 
you answer Y, then the answer must match 
exactly with the answer stored in memory. 
Selecting N will count an answer correct if 
the first three characters match. Upon 
completion of this section, you will be asked 
if you wish to go through the questions 
again? if not, you are returned to the main 
menu. 

COLOR TUTOK is a great program for 
students. OOLOR TUTOR aids in subjects 
like Language, Sciences, Social Studies, 
History, Math and \tocabulary drills- COLOR 
TUTOR can be utilized by students from the 
third grade all the way to college students. 
This program receives my grade of "A". To 
have the ability to recall any lesson at any 
time is a feature of great value to any 
student. COLOR TUTOR allows a student to 
save lessons that can be reviewed again 
later to brush-up on certain subjects 
before test time* COLOR TUTOR is flexible 
and versatile (well worth the money) * OOLOR 
TUTOR helps students begin to develop good 
study habits by helping them to learn how 
ask the right questions, and will reinforce 
their memory by randomly requiring the 
proper answer to each question. COLOR 
TUTOR requires a student to concentrate on 
the study material before him. COLOR TUTOR 
is truly a self-educational program- If you 
have a student in your family, or are 
yourself a student, this program is a must. 

I have had a hard time using the word 
student throughout this review. I keep 
thinking about teachers. How can this 

program "help Teachers? Wtdle triia program 

is well done, I Will be discussing the 
possibility of adding one more feature to 
COLOR TUTOR with John. An option to allow 
the questions and answers to be sent to a 
printer would make COLOR TUTOR one of the 
most well-rounded pieces of educational 
software available on the market. COLOR 
TUTOR is already powerful, versatile and 
useful. The inclusion of a print feature 
would open an additional world of potential 
users, imagine what a print option could do 
for a teacher's lesson planning and test 
preparation. 

Larry B. William 
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SOME BASIC 

BASICS 

ABOUT DISK SYSTEMS 



Answers to BEGINNERS Questions 
about Disk Systems 

After purchasing the cenputer- the 
next big decision facing the Qamputer 
Owner is whether or not to go into 
Disk Operations . CoCo owners will 
probably spend more on the first Disk 
Drive than the computer cost 
originally* Of course* you can put 
some pretty big money into Software* 
but even then the question looms as to 
whether you should get an expensive 
piece of software for a Cassette System 
with the possibility of dbsoleting it if 
you get a Disk System. When you are 
first considering the purchase of a 
Disk System* there are a multitude of 
questions that need answering. This 
article is aimed at providing some of 
the answers. 

You may wonder why yDu should even 
consider going to Disk* True, Tape 
works fine with small programs, small 
data files, etc. But* when jou start 
getting into nore serious applications, 
you are usually dealing with large, 
sophisticated programs which do not fit 
into memory. These programs can be 



0S-9* SOFTWARE 



SYSTEM UTILITIES AND 
APPLICATION PROGRAMS 
FOR USE WITH THE OS-9 
OPERATING SYSTEM. 
PROGRAMS DEVELOPED ON 
LARGER OS-9 SYSTEMS NOW 
BEING TRANSPORTED TO 
THE COCO. SEND A SELF- 
ADDRESSED STAMPED 
BUSINESS SIZE ENVELOPE 
FOR THE LATEST DETAILED 
LISTING. 



D.P. Johnson 

7655 SW Cedarcrest St. 

Portland, OR 97223 

* OS-9 is a trade mark of Microware and Motorola Inc. 
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PRNTDUMP 

BASIC 

Jeff Euton 

Here' a a short Extended Basic 
Program for the OaQo that might be of 
interest to other CoOo fans. The 
routine converts OoCD PMQDE3 Graphics 
Menory to serial data in a format 
compatible with the integral Data 
Systems ID5440 paper Tiger printer for 
bit-mapped black & white hard copy* 
Since Dataproducts Gorp* just acquired 
IDS, we should continue to see Paper 
Tigers around fcr a uMle. 

The program allows the operator to 
select which colors get printed as 
black, (and which colors get printed as 
white) by entry of values for each of 
the 4 possible colors of PM0DE3 (C0- 
C3). For example, with a PM0DE3 
screen in Color Set 0, we could print 
yellow, red and blue as black (with the 
green background printed as white) fcy 
selecting C0=4, C1=L C2*2, C>3. The 
non-printing (white) color code is thus 
set to a value >3, ^toile the printable 
(black) color code (a) are set to their 
associated values. There's a little 
more explanation in the program display 
while the operator is prompted for the 
color code entries. 

other Points Of interest 

* Line 16 - Color and Screen 
Statements can be changed as 
required 

* \Arm 18 - serial printer bit-rate can 

be changed as r< 



Line 30 - defaults to Disk System 
Graphics Page 1 starting at $0B00; 
this can be changed to $0600 for 
non-Disk Systems 

Line 65 - 'vitamin* Poke can be 
removed for systems that can't 
handle it 

Algorithm could be modified for 
PM0DE4 by changing the horizontal 
screen resolution (lines 50-110) and 
the printer horiz resolution (lines 
260-300) 
The extended basic routine is pretty 
slow (be patient), maybe a machine 
code equivalent someday... 
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T\' * | TT 

KfYBOARD HELPS FAMILIARIZE CHILDREN WITH THE LOCATION OF 
COMPUTER K£V%, THE GRAPHIC KEYBOARD ENABLES THE USER TO 
FIND KETSQU10KLT. HOME KEYS ARE IDENTIFIED AND PROPER FIN- 
GERING MAY BE TAUGHT TO OLDER CHILDREN. LESSONS ARE BUILT 
AROUND ALPHABET PRESENTATIONS AND LETTER DRILLS WITH A 
GRAPHIC REWARD COMPLETING EACH LISSOM. WHILE YOUNG CHIL* 
DREN ENJOY KEYGOARD'S LETTER RECOGNITION ACTIVITIES, ADULTS 
MAY BRUSH UP ON RUSTY TYPPNG SKILLS. THE 33K VERSION HAS 
LENGTHIER TIMED DRILLS. DATA TAPE USE IS OPTIONAL WITH BOTH 
t«K AND 33K VERSIONS. ANY DATA TAPE MADE FOR B5*S SPELLING 
OR HANGW0RD/SCRAM6LE PROGRAMS MAY BE USED WITH KEYBOARD, 

USE KEYBOARD PHONIC DRILL DATA TAPE. (SEE BELOW) 
14K <:«•**♦ - fltJI / J2K C«mm* - SM.fS / IK ft* - HfJS 



KEYBOARD Phonic Drill D«ta Ti 



».»5 



INTEGRATE LEARNING ■ ITW U« OF THIl OAT* TAPE AND KErBQARD 
PROGRAM. STUDENTS TTPE LETTER, "OWD, AMD iENTCNCE ©*ILLS 
USLMG COMMON VOWfL ANO CONSONANT COMBINATIONS. REINFORCE 
PHONIC STRUCTURES "MILE LEARWInG THE KEYBOARD. MU VT BE 
USED WITH KEYBOARD PROGRAM rABO*!>. MAY NOT BE USED ALONE, 

For u*c with TR&m Color C&mpuirr* * SUP-HIP 1 

Wtk Extended Bo*it 
ASK FOR DEALER DEMONSTRATION TODAY! 



&n*hur» d«*criii*g Rth.#p fin* 

BS program* ovotlakl* upaA rv^w4tt. 



, 



•Re*, tfodr-mark Tmdjt C<w|>. 

If unavailable locally 

order direct 
rOH «„. iti 

DIPT, M m* Mmmtm* 

1024 BalnbrldQ* PL* Columbus, Ohio 43228 *(614) 276-2752 



B 5 Software 



(TOO GRAPHICS P 
IDS PAPER TIGER 



2 'COCOTIGR.BAS 
RINT DRIVER FOR 
PRINTER 

3 CLSi PRINT" CmVTIGER GRAPHICS 
PRINT DRIVER"; PRINT" OOPYRIGH 

T 1983 JEFF EOTON m i PRINT sPRINT" 
COLOR CODES 0-3"tPRlNT"GRN YEL B 
LU RED/BUF CYN 
MAG OKTsPRIHT 

4 PRINT'ENTER CORRESPONDING VALU 
ES FOR OOTJOR COD^ TO BE PRINTED 

(C0-0 # Cl-1* C2=2, C3=3) ELSE 
VAUUE >3 FOR NCN-PRINT O0L0RS" 
6 INPUTC0 - *?C0 
8 IMPUT"C1 » "fCl 
10 INFLrT"C2 = H jC2 
12 INPUTC3 = "?C3 
16 PMODE3 # lsCOLORl,2tSCREQ*l # ' 
LET*S SEE WHAT WE'RE PRINTING 
18 POKE 150,41 '1200 BAUD RS232 
PRINTER 

20 PRlNTf-2,CHR$(3); ' GRAPHICS 
MODE 

30 M=&H0E00 'START OF GRAPHICS M 
EM (WITH DISK 
40 FOR V=l TO 32 '192 VERT LINES 

OF 6 LINES/SEP 
50 FOR tt=l TO 32 '128 HORZ BYTES 

OF 4 DIBITS/BYTE 
10 FOR DIBIT*! TO 4 '4 DIBITS PE 
R BYTE 

65 POKE 65495,0 'SPEEDUP 
70 IF DIBIT-1 THEN MASK=*fcBC0 'MS 
B DIBIT 

90 IF DIBIT-2 THEN MASK-&H30 'NS 
B DIBIT 

100 IF DIBIT>3 THEN MASK»*&H0C *N 
SB DIBIT 

110 IF DIBIT=4 THEN MASK=4H03 'L 
SB DIBIT 
120 D-0 'START WTTH NUU, PRINTER 

DATA BYTE 
130 B=PEEK(M) : B-B AND MASK 'MASK 

OUT ALL BUT CURRENT DIBIT 



135 GOSUB 1000 'SELECT PRINTABLE 

CODOR(S) 
140 IF P-l THEM T>D OR 1 'SET PR 
INTER DATA BIT IF REQ'D 
150 B-PEEX(M+32)xB=B AND MASK 'G 
ET DIBIT FROM NXT VERT LINE 
155 GOSUB 1000 'SELECT PRINTABLE 

COLORS 
160 IF P-l THEN END OR 2 'SET NX 
T PRINT DATA BIT IF REQ'D 
170 B=PEEK(M+64):B-B AND MASK 
175 GOSUB 1000 
180 IF P=l THEN MJOR4 
190 ^PEEKfM+gehfi 1 * AND MASK 
195 GOSUB 1000 
200 IF P=l THEN D=D OR 8 
210 B^PEEK(M+128)sB-B AND MASK 
215 GOSUB 1000 
220 IF P-l THEN D=D OR &H10 
230 E**FEEK(M+160):B=B AND MASK ' 
RETAIN DIBIT FROM 6TH VERT LINE 
235 GOSUB 1000 'SELECT PRINTABLE 

COLOR{S) 
240 IF P=l THEN D-D OR GJ120 *SETT 

HI-ORDER PRINT DATA BIT IF REQ* 
D 

250 'NOTE THAT IDS PRINTER DOESN 
*T USE 2 HI-BITS QF 8-BIT CHAR 
255 POKE 65494,0 'NOiWAL SPEED F 
OR PRINTING 

260 PRINT#-2 # CHR$(D)rCHR$(D); 'P 
MODE 3=HALF HORIZ RESOUfTION 
265 IF IW THEN PRINT#-2,CHRS(3) 
;CHR$(3)| 'DBBL ETX "CAUSE IDS D 
ROPS 1 
270 NE3CT DIBIT 'PROCEED TO NXT 2 

BITS OF SAME BYTE 
280 ***»■ I 'NEXT H0RI2 BYTE OF 4 
DIBITS 

290 NEXT H 'NEXT MEM LOCATION 
300 PRlNT#-2 f CKR$(3);CHR$(4HB); 
, ETX # VTfePRINT GRAFX LINE 
310 M=M+160 'NEXT VEFTT SET OF 6 
LINKS "v 

320 NEXT V 'BMP MEM POINTER 6 Ll 
NES (32 BYTES/LINE) 

330 PRHfTi-2 # CHR5(3);CHR$(2)iCHR J 

${&HC) ' EXIT GRAPHICS, FF # CR - r 

340 STOP 

1000 P-flsIF DIBIT-4 THEN IF B^CB 

OR B=C1 OR B=C2 OR EPC3 THEN P- 
1 

1010 IF DIBIT*3 THEN ApB/4iIF A« 
C0 OR A=C1 OR A-C2 OR A=-C3 THEN 
P=l 

1020 IF DIBIT*2 THEN AsB/l6iIF A 
s<!0 OR Ai-Cl OR A=C2 OR A=C3 THEN 

P-l 
1030 IF DIBIT^I THEN A=B/64:IF A 
^^ OR A=C1 OR A=C2 OR A=<;3 THEN 

P=l 
1040 RETURN 'SHIFT DIBITS TO LSB 

& CHK SELECTED COLOR(S> 
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CoCo HEADQUARTERS 

Looking to unlock the capacity of your Color Computer? 

Search no more 



TOLL FREE 
1-800-251-5008 





DELKQI 

warn 





SPECIALS 



1*1 Extended Basic w/bk $ 
64k Memory Upgrade S 
RS 1.1 Disk Controller $ 
1*2 Color Basic Rom $ 
Amdek Disk Drives $ 
26-3022 CoCo Drive $ 
26-3029 CoCo 2 Drive S 
26-3023 Drive 1 $ 

Super Pro Keyboard Kit $ 
26-3016 RS Keyboard kit S 



RS D.C. Modem in 
Novation J-Cat Modem 
RS D.C. Modem II 
Hayes SM 300 Modem 
USR Password 300/1200 



69.95 

59*95 

149.95 

29.95 

499*95 

349.95 

349.95 

239.95 

64*95 

34.95 



26-3026 Color Computer 2 16k 
26-3026E Extended CoCo 2 16k 
26-3003 64k Extended CoCo 
26-3011 MC-10 CoCo 
26-1261 TP-10 Thermal Printer 
26-1192 CGP-115 Printer/Plotter 
C. I ton Banana Serial 50 cps 
C. I ton Prowriter 8510 (par) 
26-1268 CGP-220 Color Jet Ptr* 
26-3024 RS Multi-Pac Interface 



ACCESSORIES 



$ t»9.95 

$ 129.95 

$ 179*95 

S 239.95 

$ 449.95 

Hayes /USR/ Banana cables $ 19.95 



Elephant Disks ssdd $ 
Verbatim Disks ssdd $ 
Kraft Joystick $ 

CoCo Switcher $ 

26-3020 4 pin DIN cable $ 
Botek ser/par Interface $ 



$ 149.95 
$ 224.95 
$ 329.95 
$ CALL 
$ 89.95 
$ 179,95 
$ 249.95 
$ 399.95 
$ 639*95 
$ 149.95 



22.95 
27.95 
39.95 
39.95 
5*29 
69.95 



0S-9 (req. 64k) 

Basic-09 (req. OS-9) 

Color Logo 

MSI Diskutil 

MSI Mail list 

MSI Color Finance 

Elite-Calc 

Colorcom/E 



SOFTWARE & BOOKS 

S 64*95 (Disk) Color Computer Graphics $ 

$ 89.95 (Disk) CoCo Assembly Prog. $ 

CoCo Programs S 

101 CoCo Programs $ 

Programming the 6809 $ 

Basic Faster and Better $ 

44.9 5 (C or D Pooyan by Kan ami (32k) $ 

49.95 (Disk) Sea Dragon (32k) $ 



$ 44.95 (Rom) 
$ 19.95 (Disk) 
$ 24.95 (Disk) 
$ 49.95 (Disk) 

$ 

s 



5.95 
6.95 
9.95 

9.95 
14.95 
29.95 
34.95 (C 
34.95 (C 



& D) 
or D) 



****************************************************** ********** 



IfjLL Call for prices and availability of your other favorite software TOLL 

ED EC All advertised items subject to availability FI?FI- 



TENNESSEE 
1-800-545-2502 



Prices do not include shipping & handling 



All of the above units covered by our 120 
day carry in warranty, 

TRS-80 Trademark Tandy Corporation, 
Prices subject to change without notice. 

Write for our FREE newsletter! 



FACTORY DIRECT 

PURE RADIO SHACK EQUIPMENT 

'THE COCO PROFESSIONALS" 




Ma\tp'Ca'<J 



r 



1-800-251-5008 

DELKER ELECTRONICS, INC, 
P.O. BOX 897 DEPT D 
SMYRNA, TN 37167 
800251 -5008 
800-545-2502 (TENNESSEE) 
615-459-2636 (TENNESSEE 
615-254-0088 (NASHVILLE 
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DISK QUESTIONS 

OantlmHd fc» pp 27 
arranged so that you call only the part 
you need at the moment into RAM frcm 
tape or disk* With a Tape System, this 
takes minutes, vhere with Disk, it 
takes only seconds. Hie same thing is 
true of data storage, only more so, 
because data files can become much 
larger than the programs that generate 
them* 

Cassette Tapes must be searched 
sequentially - from one end to the 
other. Disks are accessed randomly - 
the head will go to the proper place in 
a split second, and get or put the 
desired information * Also, Tapes read 
or write a LOT more slowly, even after 
the proper location is found. With 
Tape, you need to do a lot of manual 
shifting of the controls and cassettes* 
With Disk, most of this is automatic. 
And, the more sophisticated the Disk 
Operating System, the more automatic it 
is, and the more things you can do with 
it. 



Questions and 



Let's say X have decided to buy a disk 
system. Do I understand correctly 

that I need a Controller Board and 
Software, as well as the Disk Drive (or 
Drives) to make up a Disk System? 

Yes. The Controller plugs into the 
Cartridge, Slot, and a cable goes from 
there out to the Drives. The 
Controller is normally only a Hardware 
item, but for the Color Computer, there 
is also Software in the controller; the 
DISK BASIC ROM. 

DISK BASIC? is that a replacement for 
BASIC? 

NO, it adds more capability to the 
BASIC that is already in the CoCo. TOu 
are using BASIC plus EXTENDED BASIC 



COLOR COPY 

COLCOPY is a menu driven copy utility that 
copies data files or programs: disk to tape, tape to 
disk or disk to disk tt also kills fites or programs, 

Many options are provided; copies basic pro- 
grams, machine Language programs or data files, 
allows selection by groups of filenames or exten- 
sions, individual files by menu selection, writes 
multiple copies of files to tape, backup a disk to 
tape, restore a disk from tape, copies files in 
alphabetic sequence and much more. 

Written in bask with machine language sub- 
routines. Includes program on cassette and 
instructions. 
Requires 32K, DOS ONLY $ 1 5pp 



CASSETTE DIRECTORY 

REVISED! Displays hex addresses to printer or 
screen. Still only $2.50 or FREE with any product 
-ask lor itf 

FREE CATALOG with order or send self addressed 
stamped envelope- 



Send check or money-order to: 

COCOPRO 

P.O. BOX 37022 

ST. LOUIS, MO 63141 

Portag* paid em all pre-paid ordan In U.S. 
MiMourl mldanta add 5 625 pareant salsa taa. 

DEALER INQUIRES INVITED 



plus the DISK BASIC. Also, there are 
the Disk Commands in the DOS, or the 

Disk Operating System. 

Is the RS Disk Controller the only one 
that works with the CoCo? 

Not necessarily. There are a few 
others being advertised, but ANY Disk 
Controller you use must be Color 
Computer COMPATIBLE. The F t D 
Controller for the Color Computer looks 
GOOD. They supply a PC Board with a 
Gold Plated edge connector, which uses 
a new Timing Chip that eliminates any 
adjustments. They can supply some of 
the "special" parts, but you must be 
able to assemble and solder Digital 
Electronics to use this Controller (see 
Dec. CMJ for a full Review). So fer, 
just about anything that uses the 
Color Computer is using the RS Disk 
Controller. 

I understand that the Color Ccrcputer 
disk drives are 35 track* Will the 
controller actually handle 40 tracks? 

The RS (Microsoft) software is 
written to only support 35 Track, 
Single Sided Disk Drives, but the 
controller itself will work with 40 
tracks* In feet, the controller could 
care less. It has NOTHING to do with 
how many tracks. It is the Software 
that determines that. We have a 
routine in the Data Corap FLEX(tm) 
conversion that would FORMAT a Disk 
with 255 tracks through the RS 
controller IF there were a drive that 
could read and write that many. 

Will the controller work with both 
Single and Double Density? 

Again, the controller will do either 
single or double density; it is the 
Software that determines which way it 
is to be done. For instance, in the 
FLEX(tm) System conversions fior the 
Coco, which uses the RS controller, you 
can use either Single or Double 
Density, where the RS system, using the 
same controller, is strictly Double 
Density. The Disk DRIVE must be high 
enough quality to work Double Density, 
though. 

Of course, there are still some System 
around that use only Single density. 
What is the difference between Single 
and Double Density? 

Hew technology has made it possible 
to build Controller Chips and Disk 
Drive Read/Write Heads that can handle 
the Data faster. This allows the Data 
to be written more compactly on the 
Disk surface, providing about 90% more 
Data in the same amount of Disk space. 

Then, whether I wanted to use the RS 
Disk System, or seme other Disk Drives, 
I would need the RS Controller board? 

As of right now, yes . And, if you 
get a 40 track drive, you can still use 
it with the RS Software, AND have the 
extra tracks available ©or use with 
some of the other Disk operating 
Systems, such as FLEX, which can use 
the 40 tracks {this ALSO applies to 
the Double SIDED Drives). One 
advantage of the COCO is that you can 
step your way up to a pretty 
sophisticated system this way. 

We're talking about 5 1/4 inch floppy 
disk systems* What about 6 inch? 

That is a whole different ballgame. 
The Data transfer rate for 8 H Systems 
is twice as fast as that of the 5 1/4" 
Systems. There are controllers that 
could handle both sizes, and possibly 



on the Color Computer, but now you are 
looking at $3000 or so and Hardware 
modifications to the Computer. The 
biggest problem is the dock speed of 
the Color Computer; Radio shack 
(actually, Microsoft) had to use some 
'tricks' to get the Double Density on 
the 5 1/4" Systems (these 'tricks 1 
cause a few problems foe the CoCb QS- 
9, also). 

How many disk drives will the RS 
controller handle? 

It has four Drive Select lines, so 
it can control 4 Disk Drives. "You can 
use four RS Drives or, with proper 
software, you can use one of the Drive 
Select Lines to select Sides on Double 
Sided Drives (the F1EX Conversions use 
the Drive 3 Select Line, since THAT 
line on the Color Computer Disk 
Controller is the Side Select line on 
most of the newer Disk drives}* (You 
can't get a RS Double Sided crive for 
the Color Computer, but other Drives 
are available with both Double Sided 
and 40 or 80 Track capacities.) If you 
use that one Control line for Side 
Select, you can have only three drives, 
but, with two sides on each one, you 
get six Disk Surfaces compared to the 
maximum of four that is available from 
RS. Again, the Software determines, 
within limits, how to use what is 
available. 

What other advantages are there to 
having Double Sided Drives? 

Most people are going to need more 
than Cm Single Sided Drive* Rather 
than pay two or three hundred dollars 
for another Disk Drive, you can get a 
Double Sided Drive for about a hundred 
more. There is a very short BASIC 
Program floating around (check the 
Bulletin Boards and Magazines) that 
will make the RS DOS think your Double 
Sided Drive is two Single Sided Drives, 
IF you have 64K RAM so that the Disk 
BGH can be changed. 

What are some reliable names in disk 
drives? 

The Qume Thinlines have been working 
very well* Tandon was good, but some 
problems have shown up with the later 
units. The Teac Drives have given very 
little trouble, and there are other 
good Drives available. 

Where can I find a Controller and one 
of these good Drives? 

Data-Comp, as well as many other 
Disk Drive suppliers, would be more 
than happy to help out in that 
respect. 

Can you think of anything Else I should 
know before I rush out and plunk down 
my cash? 

Just ASK QUESTIONS, and buy from 
someone with GOOD ANSWERS1 If the 
supplier you are talking too uses the 
SAME Disk Drives in $5,000 to $20,000 
Business Computer Systems, they should 
be good enough for the CoCo . 
Remember, there are GOOD prices, and 
there are CHEAP prices. Eftough said 11 

For more information, see the 
article by Dr. Bud Pass in the Sept. 
1 33 i s sue of Color Micro journal titled 
'% CoCo Can't KEN?. 

Jim LaLane 
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You have HEARD about FLEX(tm); now LEARN about FLEX. 
Subscribe to the '68* Micro Journal! 

You have HEARD about the power of the 6809 Computer Chip 

in your Color Computer; now LEARN how to use this power. 

Subscribe to the '68* Micro Journal! 

You have HEARD about the "Multi-User, Multi-Tasking" UNIX(tm) style 
Operating Systems (such as 0S-9(tm) and UniFLEX(tm)); now LEARN about them. 

Subscribe to the ■68* Micro Journal! 

Your have HEARD about all the Software available for the 68xx Series Based 
Computer Systems? now LEARN about this Software AND the Computer Systems. 

Subscribe to the '68' Micro Journal! 



'68* Micro Journal provides INFORMATION thru: 
Regular MONTHLY Columns like "FLEX Users Notes" by Ron Anderson, *0S-9 Users 

Notes" by Peter Dibble, "C Users Notes" by Norm Commo, "Color Users Notes" 

by Bob Nay, etc. 
Regular MONTHLY Features like the "Bit Bucket", Reviews, Articles, Programs, 

etc., covering Software Development, Business Use, Operating System 

operation, hints, etc. 

DON'T MISS A SINGLE ISSUE; SUBSCRIBE H0W 1 
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•FOREIGN SURFACE Add $12*00 per Year to USA Price 

•FOREIGN AIRMAIL Add $36*00 per Year to USA Price 
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1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312) 927-5510 

TWX 910-221-4055 



GWkflX 2MI-IZ 9809 SYSTEMS CAN BE CONFIGURED TO RUN: 
FtC^ * 0$-9 LEVEL ONE * UNlfLEX * OS -9 LEVEL TrVO 

SINGLE USER SYSTEMS with S6KB of static RAM 

MULTI USER SYSTEMS wrth 128-51 2KB of static RAM and up 

YOUft QIMIX SYSTEM CAN GROW WITH rOUR NEEDS 

CHOOSE FROM GlMlX 5^*" OR 8' FLOPPY DISK DRIVE 
SYSTEMS AMD WINCHESTER DRIVE SYSTEMS 



Color Micro Journal 



